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ПРЕДИСЛОВИЕ 

Сборник содержит упражнения и задачи по языку 
Паскаль [1, 3, 5, 6, 7, 10, 11] и программированию на 
нем. Набор упражнений составлен с учетом опыта про¬ 
ведения практических занятий по программированию на 
факультете вычислительной математики и кибернетики 
Московского университета. Использованы также упраж¬ 
нения из других задачников [2, 4, 8, 12]. Для выпол¬ 
нения большинства упражнений достаточно «здравого 
смысла», знания элементарной математики и начальных 
сведений из математического анализа и линейной алгебры. 
В остальных случаях даются необходимые пояснения. 

Сборник является дополнением к учебному пособию 
[1], поэтому в нем использован тот же порядок рассмот¬ 
рения тем по Паскалю, что и в этом пособии. Однако 
сборник может быть использован и независимо от посо¬ 
бия; при этом следует учитывать, что рассматриваемая 
версия Паскаля соответствует международному стандарту 
этого языка (ISO 7185—1983, уровень 0) со следующими 
изменениями: исключены записи с вариантами, в алфа¬ 
вит языка введены русские буквы. 

Упражнения сборника охватывают все темы по Паска¬ 
лю и сгруппированы в 17 разделов. Каждый раздел 
сборника посвящен одному из понятий языка (или не¬ 
скольким тесно связанным понятиям). Раздел начинается 
с упражнений, акцентирующих внимание на синтаксисе 
и семантике этого понятия, на его назначении и типич¬ 
ных случаях использования, на ошибках, встречающихся 
у начинающих программистов. Здесь же рассматриваются 



приемы программирования и алгоритмы, часто встречаю¬ 
щиеся на практике. Для многих из этих упражнений в 
конце сборника приведены ответы или решения! такие 
упражнения помечены звездочкой. В конце раздела соб¬ 
раны упражнения на составление программ. Они пред¬ 
назначены для самостоятельной работы, поэтому их ре¬ 
шения не приводятся, однако в необходимых случаях 
даются рекомендации или подсказки. 

Нумерация упражнений в каждом разделе начинается 
с 1. Многие упражнения имеют варианты, которые обо¬ 
значаются начальными буквами русского алфавита. При 
ссылке на упражнение указывается номер раздела и но¬ 
мер упражнения в разделе, а если надо, то и буква ва¬ 
рианта. 

Для сокращения формулировок упражнений в сбор¬ 
нике используются следующие соглашения. 

Фраза «найти ошибки в программе» означает, что надо 
не только указать все ошибки в приведенной программе, 
но и объяснить, какие при этом правила Паскаля нару¬ 
шены. Следует учитывать, что ошибки могут быть не 
только синтаксическими или семантическими, но и ошиб¬ 
ками периода счета (например, в программе используется 
переменная, которой не присвоено начальное значение). 

Если формулировка упражнения начинается с предло¬ 
жения «Программа.», то решение предложенной задачи 
должно быть описано в виде полной программы—с вво¬ 
дом-выводом, с описанием всех используемых типов, пе¬ 
ременных и т. п. Встречающиеся в таких упражнениях 
фразы типа «дано число л» или «для заданных массивов 
х и уу> указывают на то, что это число или эти массивы 
являются исходными данными программы и должны быть 
в ней введены. Результатами же являются величины, ко¬ 
торые надо «вычислить», «определить», «построить» и т. п. 
Формат печати результатов, как правило, не фиксируется 
и должен определяться автором программы. В некоторых 
упражнениях решение задачи требуется описать в виде 
процедуры или функции, это всегда оговаривается явно. 



Исходные данные и результаты задачи в таком случае 
должны быть объявлены параметрами процедуры или 
функции. В начале этих упражнений приводится опи¬ 
сание всех используемых в задаче констант и нестандарт¬ 
ных типов. В остальных упражнениях решение задачи 
должно быть оформлено как фрагмент программы—как 
последовательность операторов без описаний и ввода-вы¬ 
вода, если они не требуются явно. В начале таких уп¬ 
ражнений обычно дается описание переменных, обознача¬ 
ющих исходные данные и результаты задачи, и описание 
используемых констант и нестандартных типов. 

В приводимых в сборнике программах и их фрагмен¬ 
тах все идентификаторы набраны прямым шрифтом, в 
тексте же они выделены курсивом. 

Автор выражает благодарность сотрудникам факуль¬ 
тета ВМК МГУ В. Г. Абрамову, Е. В. Зиме, В. В. Игна¬ 
тову, В. И. Родину, Т. В. Руденко и М. Ю. Семенову 
за полезные советы и помощь при подготовке сборника. 



1. ЧИСЛОВЫЕ ТИПЫ. ОПЕРАТОР ПРИСВАИВАНИЯ 

1.1*. Записать на Паскале следующие числа (в дроб¬ 
ной части указывать до 4 цифр): 
а) 5!; б) LX IV; в) 6,38; 

г) -0,7(4); д) 11/4; е) -1/6; 
ж) V 2; з) я; и) 5-10 е ; 

к) -24,8-10-*; л) 10»; м) 1/100000. 

1.2*. Записать следующие числа без десятичного по¬ 
рядка: 

а) —0.00027Е+4; б) 666Е—3; в) 1Е1 
1.3*. Указать неправильные записи чисел: 
а) 0006; б) —0; в) 7,0; г) 7.; 

д) 4-0.3; е) .3; ж) 2/3; з) Е—1; 
и) 8Е0; к) 0Е—4; л) 2*Е5; м) е 

1.4. Есть ли разница (с точки зрения языка Паскаль) 
между числами 100 и 100.0, между 20 и 2Е1? По како¬ 
му признаку (величине или форме записи) целые числа 
отличаются от вещественных? 

1.5. Привести примеры положительного и отрицатель¬ 
ного целых чисел, не представимых в Паскале. 

1.6*. Можно ли утверждать, что в Паскале значение вы¬ 
ражения (1/3)*3—1 равно нулю? 

1.7. Почему при записи формул на Паскале их «вы¬ 
тягивают» в линию? Почему знак умножения всегда вы¬ 
писывают явно (например, пишут a*t, а не at)? 

1.8*. Записать на Паскале следующие формулы» 
а) а+Ьх+суг; б) [(ах—Ь) х+с] x—d; 

„) ю-а-ЗІЦ; е) ( 1+ -і + і)/(і +т 1_). 

1.9*. Записать в общепринятой форме: 

а) (p4-q)/(r-fs) — p*q/(r*s); 

б) lE3+beta/(x2—gamma*delta) 
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1.10*. Вычислить! 24/(3*4)—24/3/4+ 24/3*4 
1.11. Почему в Паскале факториал от 10 нельзя записать 
в виде 101 или 1*2*3*...*10? 

1.12*. Сколько операций выполняется при вычислении 
выражения 


(х+1/2)*(у+7/10)—3/4? 

Как сократить число операций? 

1.13. Почему в Паскале аргумент функции всегда за¬ 
писывают в скобках (например, пишут 1п(5), а не 1п5)? 

1.14. Записать на Паск але следующие формулы! 
а) (1+*)*; б)* Кі+**; в) |а+&е|; 

г) sin 8; д)* cos***; е) tg х; 
ж)* log 2 -g-; з) chx; и) arcctg 10 s ; 


к)* arcsinx. 

1.15. Записать на Паскале следующие формулы (х>0)з 

а)* лг 1 ; б)** 4 ; в) х"*; _г) х*$ 

д)* х 1м ; е) 2 1+ *; ж) х Ѵ2 ; з)* У 1+х. 

1.16*. Как записать на Паскале величину основания 
натуральных логарифмов (число е), если Вы забыли циф¬ 
ры этого числа? А как записать число я; в подобной си¬ 
туации? 

1.17*. Как на Паскале записать синус от х градусов? 

1.18. Записать на Паскале следующие формулы! 

а \ 61 *ѵ*-*’ 3 \х+У У 1 . 

а ) V х +° » 0) iv+ y^ . 

’ cos 2+1 ctg Y I ■ 

1.19. Записать в общепринятой форме! 

а) (— b+sqrt(sqr(b)— 4*а*с))/(2*а); 

б) a/b*(c+d) —(а— b)/b/c+ 1Е—8; 

в) хі +arctan(y2—alpha)/2#abs(x4—In(5)*y5)/exp( —1) 

1.20. Записать на Паскале соответствующие операторы 
присваивания: 

а )* У= 1 ! 


б) /=,6,673- 10-8.-JM-; 

в) Ь— el*-*l+ln(l+e)log a tg2. 

1.21. Записать операторы присваивания, которые пе¬ 
ременной d присваивают: 

а) среднее арифметическое чисел х, у, г; 

б) * расстояние между точками с координатами (xj, y t ) 
и (Jf„ у,); 



в) корень уравнения arctg(l+Inx)=K 2; 

г) * площадь треугольника со сторонами а, b и с. 

1.22. Какое значение будет иметь переменная х после 
выполнения операторов хі = 10; х:=х+3? 

1.23. Записать оператор присваивания, который ме¬ 
няет знак у значения переменной t. 

1.24. Чему равны значения переменных х и у после 
выполнения операторов х:=2; у:=5; хі=у; у;=х? 

1.25*. Поменять местами значения переменных х и у. 
1.26. Поменять местами значения переменных х, у и г 
так, чтобы в х оказалось значение переменной у, и у — 
значение переменной z, а в г—прежнее значение пере¬ 
менной х. 

1.27*. Вычислить значения выражений! 
a) trunc(6.9); б) round(6.9); 

в) trunc(6.2); г) round(6.2); 

д) trunc(— 1.8); е) round( —1.8); 

ж) round(0.5); з) round(— 0.5) 

1.28* Переменной d присвоить дробную часть поло¬ 
жительного числа х. 

1.29*. Вычислить значения выражений! 
а) 20 div 6; б) 20 mod 6; 

в) 20 div 4; г) 20 mod 4; 
д) 2 div 5; е) 2 mod 5; 

ж) 123 div 0; з) 3.0 mod 3 

1.30. Определить операцию div через другие операции 
и стандартные функции. 

1.31*. Указать порядок выполнения операций в вы¬ 
ражении 

— a mod b+a div b*c 

1.32. Вычислить значения выражений: 

а) 3*7 div 2 mod 7/3— trunc(sin(l)); 

б) * succ(round(5/2)—pred(3)) 

1.33*. Определить тип (целый или вещественный) вы¬ 
ражения: 

а) 1+0.0; б) 20/4; в) sqr(4); 

г) sqr(5.0); д) sqrt(16); е) sin(0); 
ж) succ( —2); з) trunc( —3.14) 

1.34. В языке Паскаль значением вещественной пере¬ 
менной (скажем, х) может быть только вещественное чис¬ 
ло и в то же время допускается оператор присваивания, 
который вещественной переменной присваивает целое число 
(например, х:=7). Как в языке устраняется это проти¬ 
воречие? 



1.35*. Если у —вещественная переменная, а п —целая, 
то какие из следующих операторов присваивания пра¬ 
вильные, а какие нет и почему? 

а) у:=п+1; б) п;=у—1; в) п;=4.0; 

г) yi=trunc(y); д) п:=п div 2; 

е) у;=у div 2; ж) п:=п/2; з) n;=sqr(sqrt(n)) 

1.36. Правильны ли следующие операторы присваива¬ 
ния? Ответ обосновать. 

а) * ki=k mod 3+k*cos(0); 

б) xs=x*2 div б-І-х/4 

1.37*. Присвоить целой переменной Л третью от конца 
цифру в записи положительного целого числа ft (напри¬ 
мер, если fc=130985, то А=9). 

1.38. Присвоить целой переменной d первую цифру 
из дробной части положительного вещественного числа х 
(так, если *=32.597, то d=5). 

1.39. Целой переменной s присвоить сумму цифр трех- 
вначного целого числа ft. 

1.40. Идет ft -я секунда суток. Определить, сколько 
полных часов (Л) и полных минут (т) прошло к этому 
моменту (например, Л=3 и т=40, если ft =13257= 
*=3*3600+40*60+57). 

1.41. Определить /—угол (в градусах) между поло¬ 
жением часовой стрелки в начале суток и ее положением 
в h часов, т минут и s секунд (0<А<11, 0 <m, s<59). 

1.42. Определить h —полное количество часов и т — 
полное количество минут, прошедших от начала суток 
до того момента (в первой половине дня), когда часовая 
стрелка повернулась на / градусов (0</<360, /—веще¬ 
ственное число). 

1.43. Пусть ft —целое от 1 до 365. Присвоить целой 
переменной п значение 1, 2, .... 6 или 7 в зависимости 
от того, на какой день недели (понедельник, вторник, ... 

субботу или воскресенье) приходится ft -й день неви- 
ёокосного года, в котором 1 января—понедельник. 

1.44. Поменять местами значения целых переменных 
я и у, не используя дополнительные переменные. 

г. логический тип 

2.1*. Вычислить значения выражений; 

а) sqr(x)+sqr(y)<=4 при х=0.3, у=—1.6; 

б) k mod 7=к div 5—1 при к= 15; 

в) odd(trunc(10*p)) при р = 0.182 



2.2*. Записать на Паскале отношение, истинное при 
выполнении указанного условия и ложное в противном 

случае: 

а) целое k делится на 7; 

б) уравнение ах 2 +Ьх+с =0 (афО) не имеет вещест¬ 
венных корней; 

в) точка (х, у) лежит вне круга радиуса г с центром 
в точке (1, 0); 

г) натуральное п является полным квадратом, 
л 2.3*. Вычислить значения выражений: 

a) not odd(n) при п=0; 

[б) t and (р mod 3=0) при t=true, р=101010; 

в) (х*у<>0) and (у>х) при х=2, у=1; 

г) (х*у<>0) or (у>х) при х=2, у=1; 

д) a or (not Ь) при a=false, b=true. 

2.4*. Записать на Паскале выражение, истинное при 
выполнении указанного условия и ложное в противном 
случае: 

а) 0<лг<1; 

б) х=тах(х, у , z); 

в) хфтах(х, у, г) (операцию not не использовать); 

г) хотя бы одна из логических переменных а и b имеет 
значение true ; 

д) обе логические переменные а й Ь имеют значение 
true. 

2.5. Доказать тождества: 

a)* a and (not a)=false; б) a or (not c)=true; 

в) not (not a)=a; r) true or a=true; 

д) false and a=false; e) a or a^a. 

2.6*. Вычислить: 

а) true or (1 /0 >0); 

б) (l/0>0) or true 

2.7*. Объяснить ошибки в следующих записях: 
а) 1 and 0; б) true+false; в) true<0; 

г) not 2=5; д) х>0 or у=4; 

е) not not b or or d 

2.8. Указать порядок выполнения операций при вы¬ 
числении выражения: 

а) * a and b or not с and d; 

б) (х>=0) or t and odd(x) or (y*y<>4) 

2.9. Вычислить следующие выражения при a=true и 
b=false: 

a) a or b and not a; 6) (a or b) and not a; 

в) not a and b; r) not (a and b) 
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2.10. Записать на Паскале выражение, истинное при 
выполнении указанного условия и ложное в противном 
случае і 

а) х принадлежит отрезку [0, 1]; 

б) х лежит вне отрезка [0, 1]; 

в) * х принадлежит отрезку [2, 5] или [—1, 1]; 

г) * х лежит вне отрезков [2, 5] и [—1, 1]; 

д) каждое из чисел х, у, г положительно; 

е) хотя бы одно из чисел х, у и г положительно; 

ж) ни одно из чисел х, у и г не является положи¬ 
тельным; 

з) только одно из чисел х, у и г положительно; 

и) логическая переменная а имеет значение true, а 
логическая переменная Ъ имеет значение false; 

к) * год с порядковым номером у является високос¬ 
ным (год високосный, если его номер кратен 4, однако 
из кратных 100 високосными являются лишь кратные 400; 
например, 1700, 1800 и 1900—невисокосные годы, а 
2000—високосный). 

2.11. Нарисовать на плоскости (лг, у) область, в кото¬ 
рой и только в которой истинно указанное выражение: 

а) * (у>=х) and (у+х>=0) and (у< = 1); 

б) (sqr(x)+sqr(y) < 1) or 
(у>0) and (abs(x)< — 1); 

в) (trunc(y)=0) and (round(x)=0) 

2.12*. Записать на Паскале выражение, зависящее от 
хну, которое принимает значение true, когда точка с 
координатами хну принадлежит заштрихованной обла¬ 
сти (см. рис. 1). 

2.13*. Вычислить значения выражений: 

a) false<tme; б) ord(false)=l; 

в) pred(true); г) ord(succ(false))>0 

2.14*. Вычислить значения выражений: 

а) not (pred(c) or (ord(c) =* 1)) при c=true; 

б) (p<true)=(q=false) при p=q=true, 

в) a and b>a or b при a=false, b^=true. 

2.15. Записать на Паскале выражение, истинное при 
выполнении указанного условия и ложное иначе: 

а) * целые п и k имеют одинаковую четность; 

б) * только одна из логических переменных а и & имеет 
значение true; 

в) только, одна из логических переменных а, b и с 
имеет значение true. 

2.16. Нарисовать на плоскости (х, у) область, в кото¬ 
рой и только в которой истинно указанное выражение: 
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а) * (abs(x)<=l)>(abs(y)>=l); 

б) (sqr(x)-fsqr(y)<=4)=(y <=x) 

2.17. Доказать тождества: 

а) not(a or b)s=(not a) and (not b); 

б) a and (b or c)=(a and b) or (a and c); 

в) * a<=&s=not a or b\ 
r) a and b=(a<true)<b; 
д) not a=a<true. 

2.18. Преобразовать указанное выражение к виду, не 
содержащему знаков отношения (а и Ъ —логические пе¬ 
ременные): 

а)* а<Ь; б) а=Ь; в) (а<Ь)=а 



в а 


Рис. 1 

2.19. Если a=true н х—\, то какое значение полу¬ 
чит логическая переменная d после выполнения опера¬ 
тора присваивания? 

а)* d:=x<2; б) di=not а or odd(x); 

в) d:=ord(a)<>x 

2.20. Написать оператор присваивания, в результате 
выполнения которого логическая переменная t получает 
значение true , если выполняется указанное условие, и 
значение false иначе: 

а) числа х, у, г равны между собой; 
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б) из чисел х, у, г только два равны между собой; 

в) х —положительное число; 

г) р делится надело на q (р и q —натуральные числа); 

д) уравнение ах*+Ьх+с— 0, где а, b и с могут рав¬ 
няться 0, имеет ровно один корень; 

е) цифра 5 входит в десятичную запись трехзначного 
целого числа k\ 

ж) поля (г/, ві) и ( г2 , в2) шахматной доски имеют 
одинаковый цвет (г/, ві, г2 и в2 —целые от 1 до 8); 

з) ферзь, расположенный на поле (г/, ві) шахматной 
доски, «бьет» поле (г2, в2). 

3. ПРОСТЕЙШИЕ ПРОГРАММЫ 

3.1*. Что будет напечатано программой 

program корни (input, output); 

var b, c, d: real; 
begin read(b, c); 

d:=sqrt(sqr(b)—4#c); 

writeln('xl =', (—b+d)/2,' x2=', (—b—d)/2) 

end. 

если в качестве исходных данных заданы числа 1.0 и 
— 2 . 0 ? 

3.2*. Написать программу, которая вводит два веще¬ 
ственных числа, вычисляет и печатает коэффициенты при¬ 
веденного квадратного уравнения, корнями которого яв¬ 
ляются эти числа. 

3.3. Что будет напечатано программой 
program less (input, output); 

var x:real; t:boolean; 
begin read(x); t:=x<round(x); 

read(x); ti=t and (x<trunc(x)); 
writeln(t) 

end. 

если для ввода заданы числа 1.5 и —0.8? 

3.4. Написать программу, которая печатает true или 
false в зависимости от того, имеют три заданных целых 
числа одинаковую четность или нет. 

3.5*. Можно ли для программы 
program умножение (input, output); 

var a:integer; b:real; 
begin read(a, b); writeln(a*b) end. 

вадать в качестве исходных данных числа 5.0 и 6.2? 
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3.6. Ответить на следующие вопросы: 

а) почему параметрами процедуры ввода read могут 
быть только переменные, а не числа или выражения, 
скажем, вида *+1? 

б) в процедуре ввода указывается имя переменной, 
которой надо присвоить введенную величину, но не ука¬ 
зывается, какую именно из заданных во входном файле 
величин надо ввести; как же становится известным, ка¬ 
кую величину надо вводить? 

в) если в качестве исходных данных задано пять чи¬ 
сел, то можно ли ввести пятое из них, не вводя первые 
четыре? 

3.7*. Что будет напечатано программой 
program aba (input, output); 
var a, b:integer; 

begin read(a, b, a); writeln(a, b, a) end. 
если для ввода заданы числа 1, 2 и 3? 

3.8*. Имеется программа 
program печать (input, output); 
var x:integer; 

begin x:=2; writelnf'x-H') end. 

Что она напечатает: 3 или x-f 1? 

3.9. Когда процедура вывода writeln(x u ...,*„) осу¬ 
ществляет перевод строки: до печати первого параметра 
или после печати последнего параметра х п ? 
Нарисовать расположение чисел, напечатанных сле¬ 
дующей последовательностью процедур: 
write(l); write(2, 3); writeln(4); write(5, 6); 
writeln; writeln(7, 8) 

3.10*. Написать программу, которая для заданного 
целого числа а печатает следующую таблицу: 
а 

а 3 а* 
а* а 3 а 
3.11*. Программа 
program степени (output); 
const е=2.71828; 
var e2:real; 

begin e2:=e*e; writeln(e,e2,e#e2,e2*e2) end. 
печатает первые четыре степени числа е. Какие изменения 
(по возможности минимальные) надо внести в программу, 
чтобы она печатала первые четыре степени числа л? 
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3.12*. Написать программу, которая печатает true или 
false в зависимости от того, больше число е" числа л* 
или нет. (Числа в и я с точностью 10“‘ описать как 
константы.) 

3.13. Написать программу, которая вычисляет пери¬ 
метр и площадь правильного 17-угольника, вписанного 
в окружность заданного радиуса. 

Что надо изменить в программе для того, чтобы она 
правильно решала эту же задачу для 25-угольника? 

3.14. Ответить на следующие вопросы. 

а) Верно ли, что в паскаль-программе надо описывать 
все используемые в ней переменные? 

б) Какую информацию извлекает транслятор из описа¬ 
ния переменных и как он ее использует? 

в) Какие значения имеют переменные в начале выпол¬ 
нения программы? 

г) Можно ли менять значения констант? 

д) В описании констант их типы не указываются. 
Как же определяются типы констант? 

е) Почему не надо описывать константы maxint, true, 
false? 

3.15*. Найти ошибки в каждой из следующих программ. 

а) program A (output); 

const <1=5; 
begin d:=sqr(dl; 

writeln('a**2=',d) end. 

б) program Б (input, output); 

const k=true; var x:real; 
begin read(x); writeln(ord(x) = k) end. 

в) program В (input, output); 

var a,b,c:integer; 

begin read(a,b); writeln((a+b-f c)/3) end. 

r) program Г (input, output); 
var x:real; 

begin read(x); yi=sqrt(x)+l; 
writeln(y) end. 

д) program Д (input, output); 
const В =2.5; var a,b,c:real; 
begin read(a,c); writelrt(a#c>b) end. 

3.16. Найти ошибки в следующей программе; 

program ошибки (input, output) 
const я = 3.14159; 
var a,b:integer; 
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begin read(A); dt=odd(n*0) and b>a; 
writeln(d) end. 

3.17. Что будет напечатано следующей программой, 
если для ввода было задано число 31.7? 

program time(input,output);var 
fi:real;h,m: integer;begin read 
(fi); h:=trunc(fi/30);mi=trunc( 

(fi—30*h) /0.5);writeln(h/ > 

)end. 

Записать текст этой программы в более наглядной форме. 

3.18. Написать программы для решения следующих 
задач: 

а) вычислить значение производной функции X х в задан¬ 
ной точке а (а>0); 

б) для заданного а вычислить принадлежащий интер¬ 
валу (я, 2я) корень уравнения 

ln(ctgx— 1)=а; 

в) вычислить дробную часть среднего геометрического 
трех заданных положительных чисел; 

г) по заданным коэффициентам и правым частям урав¬ 
нений системы 

f a l x + b 1 y=c i 
\ a 2 x+b i y = c t 

найти ее решение в предположении, что определитель си¬ 
стемы не равен нулю; 

д) вычислить длину окружности, площадь круга и 
объем шара одного и того же заданного радиуса; 

е) вычислить периметр и площадь прямоугольного 
треугольника по длинам двух катетов; 

ж) по координатам трех вершин некоторого треуголь¬ 
ника найти его площадь и периметр; 

з) по длинам двух сторон некоторого треугольника и 
углу (в градусах) между ними найти длину третьей сто¬ 
роны и площадь этого треугольника; 

и) найти произведение цифр заданного четырехзнач¬ 
ного числа; 

к) определить число, полученное выписыванием в обрат¬ 
ном порядке цифр заданного трехзначного числа. 

3.19. Для решения следующих задач написать про¬ 
граммы, которые печатают true или false в зависимости 
от того, выполняются или нет указанные условия! 
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а) для произвольных вещественных чисел а, Ь нс опре¬ 
делить, имеет ли уравнение ах* + Ьх+с = 0 хотя бы одно 
вещественное решение; 

б) для заданных чисел р, а и b (а<Ь) определить, 
имеет ли уравнение arctg (2*— \р\) = Ѵ 2 корень на от¬ 
резке [а, Ь]; 

в) определить, равна ли сумма двух первых цифр задан¬ 
ного четырехзначного числа сумме двух его последних 
цифр; 

г) определить, равен ли квадрат заданного трехзнач¬ 
ного числа кубу суммы цифр этого числа; 

д) определить, есть ли среди первых трех цифр из 
дробной части заданного положительного вещественного 
числа цифра 0; 

е) определить, есть ли среди цифр заданного трехзнач¬ 
ного числа одинаковые; 

ж) даны три произвольных числа. Определить, можно ли 
построить треугольник с такими длинами сторон; 

з) даны координаты (как целые от 1 до 8) двух полей 
шахматной доски. Определить, может ли конь за один ход 
перейти с одного из этих полей на другое. 


4. ОПЕРАТОРЫ: УСЛОВНЫЙ, СОСТАВНОЙ, 
ПУСТОЙ, ПЕРЕХОДА 


4.1. Записать указанное действие в виде одного услов¬ 
ного оператора: 

В ). V = J cosa * П Р И °<*<2. 

’ у I 1— sinx* иначе; 

б)* переменной х присвоить корень уравнения 
arcsin (1-f-ln х)—а. 


если такой существует; 

в) перераспределить значения переменных х и у так, 
чтобы в х оказалось большее из этих значений, а в у— 
меньшее; 

г) * d=max(a,fc,c); 


Д)* 2 = { 


та х(х,у) при х<0, 
тіп(х,і/) при х>0; 


е) переменной k присвоить номер четверти плоскости, 
в которой находится точка с координатами хи у (дсуУ=0); 



ж) известно, что из четырех чисел а и а г , а ш и а 4 одно 
отлично от трех других, равных между собой; присвоить 
номер этого числа переменной п. 

4.2. Вычисление y = f{x), где функция f(x) задана гра¬ 
фиком (рис. 2), описать в виде одного оператора. 



6 6 
Рис. 2 


4.3. Записать последовательность операторов для реше¬ 
ния указанной задачи; 

а)* по номеру у (і/>0) некоторого года определить с — 
номер его столетия (учесть, что, к примеру, началом 
XX столетия был 1901, а не 1900 год); 

шах 2 (х,у,г)— 2*-тіп(х,у,г) . 

' — sin 2+max(x,y,z)/min(x,y,z) * 

в) * если уравнение ах 2 +Ьх+с= 0 (оМ=0) имеет вещест¬ 
венные корни, то логической переменной t присвоить 
значение true, а переменным х\ и х2 —сами корни, иначе же 
переменной t присвоить false, а значения переменных лсі 
и х2 не менять; 

г) считая, что стандартные функции sin и cos приме¬ 
нимы только к аргументам из отрезка [0, л/2], вычислить 
y=sinx для произвольного числа х; 

д) * значения переменных а, b и с поменять местами 
так, чтобы оказалось а'^Ь'^с. 

4.4*. Какое значение будет иметь переменная г после 
выполнения операторов 

z:=0; 

if х>0 then if у>0 then z: = l else z:=2 
при следующих значениях переменных х и у: 

а) х=у= 1; б) X— 1, у— —1; в) х ——1, у= 1. 

4.5*. Если значение переменной w не равно 0 и при 
этом котангенс от w меньше 0.5, тогда поменять знак у w, 
а если значение w равно 0, тогда присвоить w значение 1. 
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4.6. Указать ошибки! 

а) if 1<х<2 then х;=х+1; у:=0; 

else 3f!=0; у:=у+1; 

б) if l<x and x<2 

then begin x!=x+l; y:=0 end; 
else begin x;=0; y:=y+l end 

4.7*. Логической переменной b присвоить значение true, 
если числа х и у равны, и значение false иначе. 

4.8*. Записать условный оператор, который эквивален¬ 
тен оператору присваивания 

х:=а or b and с 

(все переменные—логические) и в котором не используются 
логические операции (например, оператору xi=not а 
эквивалентен оператор if a then x;=false else x: = true). 

4.9. Записать оператор присваивания, эквивалентный 
условному оператору 

if a then хз=Ь else хі=с 

где все переменные—логического типа. 

4.10. Написать программу для решения указанной' 
задачи: 

а) для заданного числа а найти корень уравнения 
- /(*)=0, где 

( 2ах+\а— 1| при а>0, 
у=-' иначе; 

б) дано число х. Напечатать в порядке возрастания 
числа chx, 1+|*| и (1+х*)*; 

в) даны числа а±, &*, с±, а г , Ь г , с а . Напечатать коорди¬ 
наты точки пересечения прямых, описываемых уравне¬ 
ниями ОіХ+Ь^—Сі и а 2 х+Ь г у — с 2 , либо сообщить, что эти 
прямые совпадают, не пересекаются или вовсе не сущест¬ 
вуют; 

г) даны числа о, (іи с (а=+0). Найти вещественные 
корни уравнения ах*+Ьх г +с= 0. Если корней нет, то 
сообщить об этом; 

д) даны произвольные числа а, Ь и с. Если нельзя 
построить треугольник с такими длинами сторон, то на¬ 
печатать 0, иначе напечатать 3, 2 или 1 в зависимости 
от того, равносторонний это треугольник, равнобедренный 
или какой-либо иной; 
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е) дано целое ft от 1 до 180. Определить, какая цифра 
находится в k -й позиции последовательности 

10111213.. .9899, 

в которой выписаны подряд все двухзначные числа; 

ж) дано натуральное k. Определить fe -ю цифру в после¬ 
довательности 

110100100010000100000 .. ., 

в которой выписаны подряд степени 10. 

4.11*. Есть ли в следующих текстах пустые операторы? 

а) if х>0 then х:=2 else; у:=х+1; 

б) if odd(k) then else k:=0; 

в) begin x:=2; ys=5; end; 

r) begin a:=true; ; b:=b or a end; 

д) begin if x=0 then goto 1; y:=x; 1: end 

4.12. Допустимы ли в Паскале следующие составные 
операторы? 

a) begin end; б) begin х:=0 end; 

в) begin ; end 

4.13*. Если п=3, то какое значение будет иметь пере¬ 
менная f после выполнения следующего составного опе¬ 
ратора? 

begin f: = l; i: =2; 

Is if i>n then goto 9; 
f:=f*i; i:=i+l; goto 1; 

9: end 

4.14. Выписать последовательность операторов для 
решения каждой из следующих задач: 

а) * вычислить с— наибольший общий делитель нату¬ 
ральных чисел а и Ь; . 

б) найти и—первый отрицательный член последова¬ 
тельности cos(ctgn), п= 1, 2, 3, ...; 

в) * вычислить /?=(1—1/2*)(1—1/3*) ... (1—1/л*), л>2; 

г) вычислить i/=cos(l +cos(2-f ... +cos(39+cos 40)...)). 

4.15. Ответить на следующие вопросы. 

а) Верно ли, что в качестве метки можно использо¬ 
вать любое положительное целое число? 

б) Обязательно ли описывать все метки, которыми 
помечены операторы программы? 

в) Верно ли, что в разделе меток все описываемые 
метки должны быть перечислены по возрастанию? 




4.16. Найти ошибки в программе: 

program errors (input,output); 
const L=18; 
label 18,8; 
var x,y:integer; 
begin y:=0; 

8: read(x); if x<0 then goto L; 

y:=y+x; goto 18; 

L: writeln(y) 

end. 

4.17. Найти ошибки в следующих операторах: 

а) begin 77: if |х|<1 then goto 5 

begin x:=x/2; goto 77; 5: y:=sin(x) end 
end; 

б) 34: if 0<x<2 

then if y<I then goto 34 else goto 15 
else 15: y:=sqr(y) 

4.18*. Программа. Дано 50 вещественных чисел. Найти 
величину наибольшего из них. 

4.19. Программа. Дано целое л>0, за которым сле¬ 
дует п вещественных чисел. Определить, сколько среди 
них отрицательных. 

4.20. Программа. Дана непустая последовательность 
положительных целых чисел, за которой следует 0 (это 
признак конца последовательности). Вычислить среднее 
геометрическое этих чисел. 

5. ОПЕРАТОР ЦИКЛА 

5.1*. Вычисление /=10! описать каждым из трех ва¬ 
риантов оператора цикла. 

5.2*. Определить значение переменной s после выпол¬ 
нения следующих операторов: 

а) s:=0; it=0; 

while i<5 do i:=i-f 1; s:=s-)-l/i; 

б) s:=0; І5=1; 

while i>l do begin s:=s-fl/i; i:=i—1 end; 

в) s:=0; І5 = 1; 

repeat s:=s+l/i; i:=i—1 until i< = l; 
r) s:=l; n: = l; 

for i:=2 to n do s:=s+l/i 
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5.3*. Выписать фрагмент программы для решения ука¬ 
занной ниже задачи и обосновать, почему был выбран 
тот или иной вариант оператора цикла: 

а) вычислить с—наибольший общий делитель нату¬ 
ральных чисел а и Ъ\ 

б) найти и —первый отрицательный член последова¬ 
тельности cos(ctgn), п= 1, 2, 3 ...; 

в) вычислить р=(1—1/2*) (1—1/3*)... (1—1/л*), л>2; 

г) вычислить t/=cos(l+cos(2+ ... +cos(39+cos 40)...)). 

5.4*. Имеется целое k^O. Вычислить х — ft -й член по¬ 
следовательности {*„}, где .т„=1, х я =пх п -і+\/п при п— 
= 1, 2, 3, ... 

5.5*. С точностью 10 — S вычислить х —наименьший 
положительный корень уравнения igx=x, используя метод 
деления отрезка пополам. 

5.6. Подсчитать k —количество цифр в десятичной 
запири целого неотрицательного числа п. 

д.7 S Логической переменной t присвоить значение true 
или false в зависимости от того, является натуральное 
число k степенью 3 или нет. 

5.8. Программа. Дано 100 вещественных чисел. Вычис¬ 
лить разность между максимальным и минимальным 
из них. 

5.9*. Программа. Дана непустая последовательность 
различных натуральных чисел, за которой следует 0. Опре¬ 
делить порядковый номер наименьшего из них. 

5.10. Программа. Даны целое я>0 и последователь¬ 
ность из п вещественных чисел, среди которых есть хотя бы 
одно отрицательное число. Найти величину наибольшего 
среди отрицательных чисел этой последовательности. 

5.11*. Вычислить по схеме Горнера: 

а) y=x 10 +2;e e +3x e +. . . + 10х+11; 

б) у= 11* 10 +10х*+9л?+...+2л:+1. 

5.12. Программа. Даны натуральное число п и вещест¬ 
венные числа t, а в , а+, ..., а„. Вычислить значение мно¬ 
гочлена 

а 0 х"+а 1 ;с п - 1 +.. .+а„- х х+а п 

и его производной в точке /*+0.5. 

5.13. Вычислить! 

а) * у=(2п —1)!! = 1 -3-5-... -(2п—1), я>0; 

б) 0={2п)И=2-4.....(2п), л>0; 

в) у—п\\, п>0. 

23 



Б. 14. Вычислить! 

у=Ѵ 3+ Yb+...+Y 96+К99. 

6.15. Вычислить: 

а) * i/ = cosx+cosx*+cosa: 8 +. . .+cosx 80 ; 

б) * «/=l!+2!+3!4-...+n! (п>1); 

в) у —первое из чисел sinx, sin sin х, sini sin sin лг, ... 
..., меньшее по модулю ІО -4 . 

5.16. Числа Фибоначчи (/„) определяются формулами 

f«—fi= 1 ; Л»=/ п -і+/ п -2 при «=2, з, ... 

а) * определить f —40-е число Фибоначчи; 

б) найти /—первое число Фибоначчи, большее т (m> 1); 

в) вычислить s —сумму всех чисел Фибоначчи, кото¬ 
рые не превосходят 1000. 

5.17. Не используя стандартные функции (за исключе¬ 
нием abs), вычислить с точностью eps> 0: 


а ) * у =<*=1 +*/11 + х 8 / 2 ! +... + х п / п \+...; 

б) у=&Ьх=х+х*/3\+х*/51 +.. .+х 8п+ »/(2п+1)! + ...; 

в) «/=cosjc=l— дс 8 /2!+д^/4І— ...+(— l)"jc 8 7(2n)! + . ..; 

г) і/=1п(1+х)=*— **/2+х*/3—... +(— 1)»-ідс»/п+ 

+...(М<і); 

д) y=arctg х—х — х*/3+Хг/5 —... + 

+ (_ 1 )»^» + г/( 2 „ + 1 ) + ...(|х|< 1 ). 


Считать, что требуемая точность достигнута, если очеред¬ 
ное слагаемое по модулю меньше ер $,— все последующие 
слагаемые можно уже не учитывать. 

5.18. var k,i : integer; x,y:real; 

Найти ошибки в следующем фрагменте программыі 

а) yj=0; for х:=0.1 to 0.9 do ys=y+sin(x); 

б) k: =81; y: = l; for i: = l to sqrt(k) do y:=2*y; 

. в) k:=0; for ii = 1 to 9 do ki=k-fsqr(i); k:=k*i; 

r) k: = l; for is = 1 to 64 do begin ii=2*i; k:=k-fi end 

5.19*. Вычислить: p=sin 1 +sin 1.1 -f-sin 1.2+... -j-sin 2. 

5.20. Программа. Напечатать таблицу значений функ¬ 
ций sin х и cos* на отрезке [0,1] с шагом 0.1 в сле¬ 
дующем виде (считать, что при печати на каждое вещест- 
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венное число отводится по 6 позиций строки)! 

X Sln(jt) cos(x) 

0.0000 0.0000 1.0000 
0.1000 0.0998 0.9950 

1.0000 0.8415 0.5403 

5,21. Программа. Приближенно вычислить интеграл 
j ln(2+sinx)dx, 

используя формулу прямоугольников при п=100і 
J f(x)dx~h • [/(*,)+/(*,)+.. .+/(*„)], 


где h=(b—a)ln, x t =a+ih —A/2. 

5.22*. Сколько раз будет выполняться тело следующего 
оператора цикла? 

к:=0; 

for І! = 1 to к+3 do кі=к-Ы 

5.23*. Вычислить s— сумму квадратов всех целых 
чисел, попадающих в интервал (Іпх, е х ), х>1. 

5.24. Вычислить k —количество точек с целочислен¬ 
ными координатами, попадающих в круг радиуса R (/?>0) 
с центром в начале координат. 

5.25*. Если среди чисел sin х" (л = 1, 2, .... 30) есть 
хотя бы одно отрицательное число, то логической пере¬ 
менной t присвоить значение true , а иначе—значение 
false. 

а) Использовать оператор цикла с параметром и опе¬ 
ратор перехода. 

б) Не использовать оператор перехода. 

5.26*. Логической переменной р присвоить значение 
true, если целое п (л>1)—простое число, и значение 
false иначе. 

5.27. Программа. Дано 100 вещественных чисел. Опре¬ 
делить, образуют ли они возрастающую последовательность. 

5.28. Программа. Дана последовательность из 70 це¬ 
лых чисел. Определить, со скольких отрицательных чисел 
она начинается. 
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5.29. Вычислить: 


k 

20 10 2 Sll)kn 
a)* Р= { П і7 ^і ; 6) -• 

5.30*. Определить k — количество трехзначных нату¬ 
ральных чисел, сумма цифр которых равна п (l<>i<j27). 
Операции деления (/, div и mod) не использовать. 

5.31. Напечатать в возрастающем порядке все трехзнач¬ 
ные числа, в десятичной записи которых нет одинаковых 
цифр (операции деления не использовать). 

5.32. Логической переменной t присвоить значение 
true или false в зависимости от того, можно или нет 
натуральное число п представить в виде суммы трех пол¬ 
ных квадратов. 

5.33. Программа. Напечатать таблицу истинности для 
логической функции F=(A and В) or not(B or С) в сле¬ 
дующем виде: 


АВС 


true true true true 
true true false true 
true false true false 

false false false true 


5.34. Программа. Даны вещественные числа с, d ив 
(c<d, 8>0). С точностью е вычислить интеграл 

л 

J cos е х dx, 

используя формулу трапеций: 

J f(x)dxttI n =h-[f(a)/2+f(a+h)+ 

+/(a+2/t)+ ... +f(b-h)+fmi 

где h=(b — а)/п. 

Для обеспечения нужной точности воспользоваться сле¬ 
дующим правилом Рунге: если приближенное значение 
интеграла /„ вычислять при п=п а , 2п 6 , 4 n t , 8n t и т. д., 






где п 0 —некоторое начальное число отрезков деления 
(например, л о =10), тогда при |/ 2 „—/„|/3<е за искомую 
величину интеграла можно взять І 2п . 

5.35. Программа. Дано е>0. С точностью е найти 
корень уравнения 

лх 3 —ех 2 + (2е+1 )*4- л* = 0. 

5.36. Программа. Даны натуральное п и вещественные 
числа Хі, у и х 2 , у 2 , ..., х„, у п . Рассматривая пары x h у, 
как координаты точек на плоскости, определить радиус 
наименьшего круга (с центром в начале координат), внутрь 
которого попадают все эти точки. 

5.37. Программа. Дано 80 вещественных чисел. Найти 
порядковый номер того из них, которое наиболее близко 
к какому-нибудь целому числу. 

5.38. Программа. Дано 100 целых чисел. Определить, 
сколько из них принимает наибольшее значение. 

5.39. Программа. Даны целое я>1 и вещественные 
числа х и х 2 , ..., х п . Вычислить: 

м=Щі, о=/Щ^Е. 

5.40. Программа. Дана непустая последовательность 
положительных вещественных чисел лг х , х 2 , ..., х п (п зара¬ 
нее не известно), за которыми следует отрицательное 
число. Вычислить величину 

пх 1 +(л— 1 )х 2 +... +2х п _ 1 +х п . 

5.41. Программа. Даны целые числа х 2 , х г , .... х 65 . 
Вычислить величину 

*і(*2+* 3 ) (*4+*5+* в ) (Х2+х 2 +х 2 +х 10 ) ... 

... (*«.+*«+...+*.»)• 

5.42. Программа. Дана последовательность из 100 це¬ 
лых чисел. Определить количество чисел в наиболее длин¬ 
ной подпоследовательности из подряд идущих нулей. 

5.43. Программа. Дано не менее трех различных нату¬ 
ральных чисел, за которыми следует 0. Определить три 
наибольших числа среди них. 

5.44. Программа. Дано 200 вещественных чисел. Опре¬ 
делить, сколько из них больше своих «соседей», т. е. пре¬ 
дыдущего и последующего чисел. 

5.45. Программа. Дана непустая последовательность 
ненулевых целых чисел, за которой следует 0. Определить, 
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сколько раз в этой последовательности меняется знак. 
(Например, в последовательности 1, —34, 8, 14, —5 знак 
меняется 3 раза.) 

5.46. Программа. Даны целое л>2 и вещественные 
числа а и Ь и ..., а п , Ь п ( а ( <Ь ,). Рассматривая пары а,- и b t 
как левые и правые концы отрезков на одной и той же 
прямой, определить концы отрезка, являющегося пересе¬ 
чением всех этих отрезков. Если такого отрезка нет, то 
сообщить об этом. 

5.47. Программа. Найти все целые корни уравнения 
ax 3 +bx i +cx+d= 0, где а,Ь,с и d —заданные целые числа, 
причем афО и d# 0. ( Замечание ! целыми корнями могут 
быть только положительные и отрицательные делители 
коэффициента d.) 

5.48. Программа. Определить, является ли заданное 
натуральное число совершенным, т. е. равным сумме всех 
своих (положительных) делителей, кроме самогр этого 
числа (например, число 6 совершенно: 6=l+2-f-3). 

5.49. Программа. Дано 10 натуральных чисел. Найти 
их наибольший общий делитель. 

5.50. Программа. Дано целое п>2. Напечатать все 
простые числа из диапазона [2, я]. 

5.51. Программа. Напечатать все простые делители 
заданного натурального числа. 

5.52. Программа. Дана последовательность из не менее 
чем двух натуральных чисел, за которой следует 0. Вы¬ 
числить сумму тех из них, порядковые номера которых— 
простые числа. 

5.53. Программа. Дана непустая последовательность 
натуральных чисел, за которой следует 0. Вычислить 
сумму тех из них, порядковые номера которых—числа 
Фибоначчи (см. 5.16). 

5.54. Программа. Найти сумму цифр заданного нату¬ 
рального числа. 

5.55. Программа. Определить число, получаемое выпи¬ 
сыванием в обратном порядке цифр заданного натураль¬ 
ного числа. 

5.56. Программа. Определить, является ли заданное 
натуральное число палиндромом, т. е. таким, десятичная 
запись которого читается одинаково слева направо и 
справа налево. 

5.57. Программа. Дано натуральное к. Напечатать k -ю 
цифру последовательности 

а) 12345678910111213..., в которой выписаны подряд 
все натуральные числа; 
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б) 149162536..в которой выписаны подряд квад¬ 
раты всех натуральных чисел; 

в) 1123581321..., в которой выписаны подряд все числа 
Фибоначчи. 

6. ЛИТЕРНЫЙ ТИП 

6.1*. Всегда ли справедливо следующее утверждение! 

а) если с —литера и 'О'^с^'9', то с —цифра; 

б) если с—литера и 'а'^с^Ѵ, то с —строчная ла¬ 
тинская буква; 

в) '9'<'а'; 

г) '0'=0; 

д) ord('0')=0; 

е) 'а'='А'; 

ж) если с и d— литеры, то c<d тогда и только тогда, 
когда ord(e)<ord(d); 

з) ord(chr(fe))=A> для любого целого k\ 

и) chr(ord(c))=c для любой литеры с. 

6.2*. Вычислить значения выражений: 

a) pred('7'); б) succ( , 0')=pred('2'); 

в) ord('5')—ord('O'); г) 'd'>'a'; 

д) ord('q')<ord('z'); е) chr(25)>=chr(16); 

ж) ord(pred(chr(24))); з) chr{ord('5')+l). 

6.3*. Имеется литерная переменная d. Присвоить ло¬ 
гической переменной t значение true, если выполняется 
указанное условие, и значение false в противном случае: 

а) значение d —это литера V; 

б) значение d —литера 'а' или 'q'; 

в) значение d —цифра. 

6.4*. Определить значение литерной переменной d после 
выполнения следующих операторов: 

a) ci='-f'; d: —с; б) с:='+ ? ; а:='с' 

6.5*. Вычислить s —сумму порядковых номеров всех 
букв, входящих в слово SUM. 

6.6*. Напечатать текст, образованный литерами с по¬ 
рядковыми номерами 65, 71 и 69. 

6.7*. Литерной переменной next присвоить цифру, сле¬ 
дующую за цифрой, являющейся значением литерной пе¬ 
ременной dig, считая при этом, что за '9' следует 'О'. 

6.8*. Логической переменной Ь присвоить значение true , 
если между литерами 'а' и V нет иных символов, кроме 
строчных латинских букв, и значение false иначе. 

6.9*. Напечатать в одну строку все литеры между 'А' 
и '2', включая и эти буквы. 



6.10. Напечатать таблицу следующего вида: 


а)* 100.. 

..00 

б) 999.. 

..99 

в) 0123456789 

020.. 

..00 

088., 

..88 

1234567890 

000!! 

! .09 

ооо!! 

!.01 

9012345678 


Далее в этом параграфе под текстом» понимается 
заданная во входном файле input последовательность литер 
( возможно, пустая), за которой следует точка (в сам 
текст точка не входит). 

6.11*. Программа. Напечатать true, если в заданном 
тексте буква а встречается чаще, чем буква Ь, и напеча¬ 
тать false в противном случае. 

6.12. Программа. Если в заданный текст входит каж¬ 
дая из букв слова key, тогда напечатать yes, иначе—по. 

6.13. Программа. Проверить, правильно ли в задан¬ 
ном тексте расставлены круглые скобки (т. е. находится 
ли справа от каждой открывающей скобки соответствую¬ 
щая ей закрывающая скобка, а слева от каждой закры¬ 
вающей—соответствующая ей открывающая). Ответ—ДА 
или НЕТ. 

6.14*. Программа. Определить, является ли заданный 
текст правильной записью целого числа (возможно, со 
знаком). 

6.15. Известно, что в заданный текст входит буква а, 
причем не на последнем месте. Требуется напечатать ли¬ 
теру текста, непосредственно следующую за первым вхож¬ 
дением а. Можно ли решить эту задачу следующим образом 
(с —литерная переменная): 

repeat read(e) until с— 'a'; writeln(succ(c)) ? 

6.16. Программа. Напечатать заданный непустой текст: 

а) * удалив из него все цифры и удвоив знаки «-(-» 
и «—»; 

б) * удалив из него все знаки «+», непосредственно за 
которыми идет цифра; 

в) удалив из него все буквы Ь, непосредственно перед 
которыми находится буква с; 

г) заменив в нем все пары ph на букву f. 

6.17. Программа. Напечатать заданный текст, удалив 
из него лишние пробелы, т. е. из нескольких подряд иду¬ 
щих пробелов оставить только один. 

6.18. Программа. Заданный текст распечатать по стро¬ 
кам, понимая под строкой либо очередные 60 литер, если 
среди них нет запятой, либо часть текста до запятой вклю¬ 
чительно. 
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6.19. Программа. Дана непустая последовательность 
непустых слов из латинских букв; соседние слова отде¬ 
лены друг от друга запятой, за последним словом—точка. 
Определить количество слов, которые: 

а) * начинаются с буквы а; 

б) оканчиваются буквой w; 

в) начинаются и оканчиваются одной и той же буквой; 

г) содержат хотя бы одну букву d; 

д) содержат ровно три буквы е. 

6.20*. Значениями литерных переменных с2, сі и с0 
являются цифры. Присвоить целой переменной k число, 
составленное из этих цифр (например, если с2='8', с1 = '0' 
и с0='5', то k =805). 

6.21*. Присвоить литерным переменным с2, сі и с0 
соответственно левую, среднюю и правую цифры трехзнач¬ 
ного числа k. 

6.22*. Используя только литерный ввод, т. е. процедуру 
read( с), где с —литерная переменная, ввести непустую по¬ 
следовательность цифр, перед которой может находиться 
знак «+» или «—» и за которой следует пробел, и, по¬ 
лучив соответствующее целое число, присвоить его целой 
переменной k. 

6.23. Используя только литерный вывод, т. е. про¬ 
цедуру write( с), где с —литерный параметр, вывести на 
печать значение целой переменной k (знак «+» не печа¬ 
тать). 

6.24. Программа. Дано натуральное число п. Напеча¬ 
тать в троичной системе счисления целые числа от 0 до п. 

6.25. Программа. Дана непустая последовательность 
неотрицательных целых чисел, записанных в семеричной 
системе счисления; между соседними числами—пробел, 
за последним—точка. Напечатать в десятичной системе 
наибольшее из них. 

6.26. Программа. Задано неотрицательное целое число, 
записанное в восьмеричной системе счисления (за чис¬ 
лом—пробел). Напечатать это число в пятеричной системе 
счисления. 

6.27. Программа. Дана последовательность литер, имею¬ 
щая следующий вид: d 1 ±.d 2 ± ... ±d„ (d,— цифры, л>1), 
за которой следует точка. Вычислить значение этой ал¬ 
гебраической суммы. 

6.28. Используя только литерный ввод, ввести задан¬ 
ное вещественное число (за ним—пробел), записанное по 
правилам языка Паскаль, и присвоить его вещественной 
переменной х. 



6.29. Используя только литерный вывод, напечатать 
вещественное число х в следующей формеі 

±0 .didt . . .d ) E±p 1 p t , 

где d[, Ру—цифры, причем d^O, если хфО. 

6.30*. Имеются целые числа k и я от 1 до 8Q. Напе¬ 
чатать в очередной строке (номера ее позиций—от 1 дб 80): 

а) литеру * в k -й позиции; 

б) литеру * в k-Pi позиции и литеру I в я-й позиции 
(при k—n печатать только звездочку). 

6.31. Программа. Напечатать график функции у=х г — 1 
на отрезке [—1,2] с шагом 0.1. Ось ОХ направить по 
вертикали вниз, а ось OY —по горизонтали вправо. В каж¬ 
дой строке печатать «кусочек» оси ОХ (например, литеру I) 
и звездочку—в позиции, соответствующей очередному зна¬ 
чению функции; ось OY не печатать. 

Примерный вид графика: 


6.32. Программа. Напечатать в точках 1, 2, .... k, где 
&—заданное целое число от 2 до 70, график функции 
Эйлера <р(я), вычисляющей количество целых чисел от 1 
до л—1, взаимно простых с числом л. 

6.33. Программа. В заданный непустой текст входят 
только цифры и буквы. Определить, удовлетворяет ли он 
следующему свойству: 

а) текст является десятичной записью числа, кратного 9; 

б) текст является записью четного числа в семерич¬ 
ной системе; 

в) текст является десятичной записью числа, крат¬ 
ного 6; 

г) текст является десятичной записью числа, кратного 4; 

д) текст является шестнадцатеричной записью числа, 
кратного 5; 

е) текст начинается с некоторой ненулевой цифры, за 
которой следуют только буквы, и их количество равно 
числовому значению этой цифры; 

ж) текст начинается с k букв (1<£<9), за которыми 
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следует только одна литера—цифра с числовым значе¬ 
нием k\ 

3) текст совпадает с начальным отрезком ряда 0123456789 
(например: 0, 01, 012); 

и) текст совпадает с конечным отрезком ряда 0123456789 
(например: 9, 89, 789); 

к) текст совпадает с каким-то отрезком ряда 0123456789 
(например: 2, 678); 

л) текст состоит только из цифр, причем их числовы* 
значения образуют арифметическую Прогрессию (напри¬ 
мер: 2468, 741, 3); 

м) текст содержит (помимо букв) только одну цифру, 
причем ее числовое значение равно длине текста; 

н) сумма числовых значений цифр, входящих в текст, 
равна длине текста. 

7. ПЕРЕЧИСЛИМЫЕ И ОГРАНИЧЕННЫЕ ТИПЫ. 

ОПЕРАТОР ВАРИАНТА 

7.1*. Имеются описания 

type сезон=(зима, весна, лето, осень); 

ѵаг х,у:сезон; 

^(тепло, холодно); 

Ответить на следующие вопросы. 

а) Какие значения могут принимать переменные х, у 
и /? Допустимы ли присваивания: 

1) х:=весна; 2) у:=х; 3) (:=тепло; 

4) y:=t; 5) 1:=жарко? 

б) Вычислить значения выражений: 

1) весна<лето; 2) зима<=лето; 3) осень<зима; 

4) весна < >тепло; 5) succ(BecHa); 6) рге<і(весна)і 
7) succ(oceHb); 8) ргеб(холодно) 

в) Вычислить значения выражений: 

1) огсі(весна); 2) огсі(осень) -)- ord ( холодно) 

г) Допустим ли оператор цикла с заголбвком 
for х:=весна to осень do? 

д) Допустимы ли следующие операции ввода-вывода» 
1) read(x); 2) \ѵгДе(лето); 

3) ѵѵгйе1п('зимой ',t)? 

7.2*. Указать ошибки в следующем разделе типов» 

type буква=('а','Ь'/с , /б'); 
гласная =(a,e,i, о, u); 

2 в. н 


I. Пилыи 
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согласная =(b..d,f,g); 

карта=(6,7,8,9,10,валет,дама,король, туз); 
корень=(1.00,1.41,1.73,2.00); 
фигура=(слон,конь,ладья,ферзь); 
конь=(пегий,сивый,каурый); 
животное= (лев,слон,жираф); 
деление=(біѵ,тоб); 
лог = boo lean; 

7.3*. Имеются описания 

type digit='0'..'9'; 

var didigit; k:0..9; nrinteger; 

Ответить на следующие вопросы. 

а) Каковы значения типа digit? Каков базовый тип 
для этого ограниченного типа? Допустимы ли присваивания! 

1) d:='7'; 2) d: = 'a'; 3) d:=7? 

б) Какйе значения может принимать переменная й? 
Каков ее базовый тип? Допустимы ли присваивания: 

1) к:=5; 2) к: = 10; 3) к:=—0; 4) к:='5'; 

5) fe:=ord(d); 6) k:=ord(d)—ord('O')? 

в) Верно ли, что к значениям ограниченного типа можно 
применять те же операции, что и к значениям базового 
типа? Есть ли ошибки в операторе 

if k+n>7*k then k:=abs(n) mod 10 
else d:=chr(k-f-ord('0'))? 

г) Можно ли в Паскале определить ограниченный тип, 
состоящий из простых чисел? 

7.4*. Указать ошибки в следующих описаниях; 
const п=180; рі=3.14159; 
type цифра='0'.. , 9'; 
буква=а..г; 
угол=—п..п; 
отрезок=0..п—1; 
период=— рі..рі; 
плюс='+ # .. , +'; 
неделя=(вс,пн,вт,ср,чт,пт,сб); 
будни=пн..пт; 
выходной=сб. .вс; 

7.6*. type месяц—(янв,фев,мар,апр,май,июн,июл,авг, 
сен,окт, ноя, дек); 
день=1..31; 

ѵаг Ф1,б2:день; т1,т2:месяц; t:boolean; 
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Переменной t присвоить значение true , если дата dl, ml 
предшествует (в рамках года) дате d2, m2, и значение 
false иначе. 

7.6*. ѵаг ш,ш1:месяц; {определение «месяц» см. в 7.5} 
k:l..maxint; п:1..12; 

Присвоить переменной ml: 

а) название месяца, следующего за месяцем т (с уче¬ 
том того, что за декабрем идет январь); 

б) название А-го месяца после месяца т; 

в) название л-го месяца года. 

7.7. type страна=(Австрия,Болгария,Греция,Италия, 

Норвегия,Франция,ФРГ); 
столица=(Вена,София,Афины,Рим,Осло, 
Париж,Бонн); 
ѵаг st:crpaHa; сар:столица; 

По значению переменной st (названию страны) присвоить 
переменной cap название столицы этой страны. 

7.8. ѵаг Pi (ада, бейсик, модула2, лисп,' 

паскаль, плі, фортран); 

А: (ada, basic, modula2, lisp, 
pascal, pll, fortran); 

По P— русскому названию языка программирования при¬ 
своить переменной А английское название этого языка. 

7.9. type название=(ноль, один, два, три, 

четыре, пять); 
ѵаг: d:'0'..'5'; пшазвание; 

По литере-цифре d присвоить переменной п название этой 
цифры. 

7.10. type нота=(до,ре,ми,фа,соль,ля,си); 

интервал=(секунда, терция, кварта, 
квинта, секста, септима); 
ѵаг п1,п2: нота; і:интервал; 

Определить і —интервал, образованный нотами лі и п\ 
{п\фп2)\ секунда—это интервал из двух соседних (по кру¬ 
гу) нот (например, ре и ми, си и до), терция—интервал 
через ноту (например, фа и ля, си и ре) и т. д. 

7.11*. Определить, какими будут значения перемен¬ 
ных р и d после выполнения операторов 

ps=true; d:— 1; 
case k mod 10 of 
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3, 2, 7, 5j d!=k; 
li; 

4,8i begin pi=false; d:=2 end; 

9,6s begin pj=false; di=3 end 
end {of case} 

если целая переменная k имеет следующее значение: 
а) 6; б) 235; в) 71; г) 100. 

7.12. var u,w:'a'..'z'; 

Найти ошибки в следующем операторе: 
case u of 

V./w'i wi=succ(u); 

V, 'у'! u:='g'; w:=u 
end 

7.13*. type сезон=(зима,весна,лето,осень); 

месяц=(янв,фев,мар,апр,май,июн, 
июл,авг,сен,окт,ноя,дек); 
ѵаг ш:месяц; вхезон; 

Определить s— сезон, на который приходится месяц т. 

7.14. type страна=(ГДР,Куба,Лаос,Монако,Непал, 

Польша); 

континент=(Азия, Америка, Европа); 
ѵаг вхтрана; сжонтинент; 

По s —названию страны определить с —название ее кон¬ 
тинента. 

7.15. type единица=(дециметр,километр,метр, 

миллиметр,сантиметр); 
длина= real; 
ѵаг х.-длина; р:единица; 

Значение переменной х, означающее некоторую длину 
в единицах р, заменить на величину этой же длины в метрах. 
7.16*. type цвет=(черный,серый,белый); 
ѵаг с:цвет; 

Напечатать значение переменной с. 

7.17. ѵаг kil.,9; 

Напечатать значение переменной k римскими цифрами. 
7.18*. type letter=(a,b,c,d); 
ѵаг xiletter; 

Ввести заданное во входном файле значение типа letter 
(т. е. а, Ь, с или d) и присвоить его переменной х. 
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7.19. Для целого числа k от 1 до 99 напечатать фразу 
«мне k лет», учитывая при этом, что при некоторых зна¬ 
чениях k слово «лет» надо заменить на слово «год» или 
«года». 

7.20. Для натурального числа k напечатать фразу «мы 
нашли k грибов в лесу», согласовав окончание слова «гриб» 
с числом k. 

7.21. type падеж=(им,род,дат,вин,твор,предл); 

слово=( степь,боль ,тетр адь,дверь); 
ѵаг \ѵ:слово; р:падеж; 

Напечатать слово w в падеже р и единственном числе 
(например, при w— степь и р—твор надо напечатать слово 
степью). 

7.22. type курс=(С,В,Ю,3); {север,восток,юг .запад} і 

приказ=(вперед,вправо,назад.влево); ; 

ѵаг К1,К2:курс; ПРіприказ; 

Корабль сначала шел по курсу К 1, а затем его курс был 
изменен согласно приказу ПР. Определить /(2—новый 
курс корабля. 

7.23*. ѵаг d:28..31; ішмесяц; {см. 7.5} 

Переменной d присвоить количество дней в месяце т (год 
считать невисокосным). 

7.24. ѵаг у:1901..2000; ішмесяц; {см. 7.5} d:1..31; 

t:boolean; 

Переменной t присвоить значение true, если тройка у, 
т, d образует правильную дату, и значение false —иначе 
(при 31 июня и т. п.). 

7.25. ѵаг d,dl:l. .31; т,га1:месяц; (см. 7.5} 

у: 1901..2000; yl:1901..200l; 

По дате d, т, у определить dl, ml, у\ —дату следующего 
дня. 

7.26. ѵаг k: 1 ..366; d»1..31; ішмесяц; {см. 7.5} 

а) * определить k —порядковый номер того дня висо¬ 
косного года, который имеет дату d, m; 

б) определить d, т —дату k -то по счету дня високос¬ 
ного года. 

7.27. type число» 1..31; 

месяц=(янв,фев,мар,апр,май,июн,июл, 
авг,сен,окт,ноя,дек); 
деньнедели—(вс,пн,вт,ср,чт,пт,сб); 

ѵаг гіічисло; ішмесяц; wdl.wd: деньнедели; 

k;0..12; 


37 



Считая, что год невисокосный и его 1 января приходится 
на день недели wdl, определить: 

а) wd —день недели, на который приходится день 
с датой d , т\ 

б) k —количество понедельников в году, приходящихся 
на 13-е числа. 

7.28. Найти все ошибки в следующих программах и 
объяснить, какие правила языка Паскаль при этом на¬ 
рушены: 

а) program ошибки (input,output); 

type месяц=(янв,фев,мар,апр,май,июн,июл, 
авг,сен,окт,ноя,дек); 
зима=дек..фев; 
весна=мар..май; 
ѵаг ш:месяц; к:1..12; 
begin read(m); 

if т>весна then т:=июнь; 
for к:=ог(і(янв) to ord(m) do 
m:=succ(m); 
writeln(m) 
end. 

б) program oum6KH(input,output) 

type цифра='0'. '9'; 

знак=('+Ѵ —','*',7'); 
var d:iw<f)pa; t:boolean; 
begin read(d); 
case d of 

2,3,5,7: t:=true; d: = succ(d); 

0,1,4, 6,8,9: t:=false; 
writeln(t.d) 

end. 


7.29. В старояпонском календаре был принят 60-лет¬ 
ний цикл, состоявший из пяти 12-летних подциклов. Под¬ 
циклы обозначались названиями цвета: зеленый, красный, 
желтый, белый и черный. Внутри каждого подцикла годы 
носили названия животных: крысы, коровы, тигра, зайца, 
дракона, змеи, лошади, овцы, обезьяны, курицы, собаки 
и свиньи. (1984 год —год зеленой крысы —был началом 
очередного цикла). 

Написать программу, которая вводит номер некоторого 
года нашей эры и печатает его название по старояпон¬ 
скому календарю. 

7.30. Программа. Пусть значение функции /(я) равно 
количеству букв в записи числа п русскими словамиі 



f(l)=4 (один), /( 3)=3 (три), /(42)— 8 (сорок два) и т. п. 
Напечатать все натуральные числа п, меньшие 100, для 
которых f(n)=n. 

8. РЕГУЛЯРНЫЕ ТИПЫ: ВЕКТОРЫ 

8.1*. Имеются описания; 

type деньг=(вчера,сегодня,завтра); 
вектор=аггау [1..30] of real; 
ѵаг ашектор; 

b:packed array [—2..2] of (x,y,z); 
crarray ['O'..'9'] of вектор; 
d:array [день] of 0..23; 

Для каждого из массивов а, Ь, с и d указать; 

а) сколько в нем элементов; 

б) какие значения могут принимать его элементы; 

в) как указать его первый и последний элементы. 
8.2*. Описать регулярный тип R, объединяющий в себе 

массивы, элементами которых являются натуральные 
числа, а индексами—любые литеры. 

8.3. Ответить на следующие вопросы. 

а) Может ли массив содержать один элемент? А ни 
одного? 

б) Можно ли во время выполнения программы изме¬ 
нить размер массива (количество элементов в нем)? 

в) Могут ли элементами некоторого массива быть числа 
1, 1.41, 1.73 и 2? 

г) Верно ли, что тип элементов массива может быть 
любым? 

д) Может ли типом индекса массива быть тип integer 
или real ? 

е) Каковы достоинства и недостатки упакованных мас¬ 
сивов по сравнению с неупакованными? Кто (автор про¬ 
граммы или транслятор) определяет, упаковывать массив 
или нет? 

8.4*. Указать ошибки в следующих описаниях; 
const п=50; 

type слово= packed array [0..n —1] of буква; 
буква='а'..Ѵ; 

вектор =array [real] of integer; 
цифры=аггау [true..false] of (1,2,3,4); 
var k:l..maxint; 

x:array [l..k] of char; 



yjpacked array [—n..n] of 0..0; 
ziarray [(a,b,c)l of boolean; 

8.5*. const n=41; 

var xsarray [l..n] of real; y:real; 

Написать ф рагмент програ ммы для вычисления! 

а) У=Ѵ ••.•*»!; 

б) у=шахх / ; 

в) у=Хі — *,+*,—.. 

г) у=х 1 х п +х г 

Д) </=^1+4+4+ •. • +J& 

е) У=х п (*„-|-* п _і) (х п +х п _і+х п _ г ) ... (*„+... +*,). 

8.6. const m=50; 

var C: packed array [0..m] of char; 

Bi packed array [0..m] of boolean; 

По массиву С получить массив В: элементу В[і] присво¬ 
ить true , если C[tJ —цифра, и присвоить false иначе. 

8.7. type имя=(Валя, Гена, Женя, Коля, Маша, Нина, 

Саша, Таня, Федя, Шура); 
ѵаг Пол:аггау [имя] of (муж,жен); 

Рост:аггау [имя] of 140..200; 

И:имя; Cpsreal; 

По массивам Пол и Рост определить! 

а) * И— имя самого рослого мужчины; 

б) Ср —средний рост женщин. 

8.8*. type TeKCT=packed array [1..72] of char; 

шифр=раскегі array [char] of char; 
var t:TeKcr; к:шифр; 

Зашифровать текст /, заменив в нем каждую литеру на 
значение элемента массива k, индексом которого является 
эта литера. 

8.9. type деньнедели=(пн,вт,ср,чт,пт,сб,вс); 
ѵаг год: array [1..365] of деньнедели; 

Присвоить каждому элементу год[і\ название того дня 
недели, на который приходится і- й по счету день неви¬ 
сокосного года, если известно, что 1 января—среда 
(год[1]і=сд, год[2]і=чт и т. д.). 

8.10. type республика=(Грузия,Россия,Украина); 

город=(Киев,Москва,Одесса,Сочи, 

Тбилиси,Томск); 
var xiarray [1..20] of город; 
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Напечатать название республики, города которой наибо¬ 
лее часто встречаются в массиве х (считать, что такая 
республика одна). 

8.11. Указать, какие операции над массивами (как 
едиными объектами) допустимы в Паскале, и найти ошибки 
в следующей программе: 

program ошибки (input .output); 
var x,y:array [1..20J of real; 
z,u:array [1 ..50] of real; 
i: integer; 

begin read(x.y); 

if x<>y then begin z:=x; 

x?=y; ys=s=z end 
else x:=x+y; 

for i: = l to 20 do u[i]:=x[i]-fy[ij; 

z:=u; 

writeln(x) 

end. 

8.12*. const n=30; 

type вектор=аггау [l..n] of integer; 
var а,Ь,с:вектор; 

Если векторы а и b различны, то вектору с присвоить 
их сумму, иначе в вектор с переписать элементы массива а. 

8.13*. Программа. Дано 100 целых чисел. Распечатать 
их в обратном порядке по 6 чисел в строке. 

8.14*. var x:array [1..40] of char; 

y:array [0..39] of char; 

Переписать элементы массива x в массив у. (Можно ли 
эту задачу решить с помощью оператора г/;=х?) 

8.15*. Для решения каких из следующих задач нужны 
массивы, а в каких задачах можно обойтись и без них? 

а) Дано 50 чисел. Найти их среднее арифметическое. 

б) Дано 50 чисел. Определить, сколько среди них 
отличных от последнего числа. 

в) Дано 100 чисел. Напечатать сначала все отрица¬ 
тельные из них, а затем все остальные. 

г) Дано число а. Определить первый отрицательный 
член последовательности х ъ х г ,х л ,..., rflex i =a,x„=tg(x n _ 1 ). 

8.16*. Программа. Вычислить величину 

(ХіУі+х,у а + ... +х ів у 2а )/(хд і +х і у 1 + ... +x i9 y t0 ), 
если числа для ввода заданы в следующем порядке» 

а) х іг x t .Хее Уи Уг . У»о\ 

б) x it у и x t , у .. Узо- 
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8.17. Программа. По заданным вещественным числам 
а,, Of, ..., а 4 о» t вычислить значение многочлена 

а л>* го + а 19* 19 4-. • • +а 1 х+а 9 
и его производной в точке t. 

Какие изменения надо внести в программу, чтобы она 
правильно выполнялась для многочлена 45-й степени? 

8.18*. Программа. Дан текст из 80 литер. Напечатать 
сначала все цифры, входящие в него, а затем все осталь¬ 
ные литеры, сохраняя при этом взаимное расположение 
литер в каждой из этих двух групп. 

8.19. Программа. Дан текст, содержащий от 1 до 70 
букв, за которым следует точка. Напечатать этот текст 
в обратном порядке. 

8.20. Программа. Дан непустой текст из цифр, за ко¬ 
торым следует точка. Напечатать цифру, наиболее часто 
встречающуюся в этом тексте (если таких цифр несколь¬ 
ко, напечатать любую из них). 

8.21. const п=1000; 

var s:packed array [l..n] of char; 

Напечатать те элементы массива s, индексы которых яв¬ 
ляются: 

а) * степенями двойки (1, 2, 4, 8, 16, ...); 

б) полными квадратами (1, 4, 9, 16, 25, ...); 

в) числами Фибоначчи (1, 2, 3, 5, 8, 13, ...). 

8.22. var x:array [1..100] of real; 

a:array [1..30] of 1..100; 
s:real; 

Вычислить s— сумму тех элементов массива х, индексы 
которых совпадают со значениями элементов массива а 
(я,- Ф a.j при і Ф /). 

8.23. ѵаг х:аггау {1 ..9999] of real; s:real; 

Вычислить (индекс 1 -го слагаемого каждой суммы—квадрат): 

s=(x 1 +x J +x 1 ) (**+*,+... +*,) (*,+... +х и ). .. 

- - - (Jc.eex4- ...+*,.,.)• 

8.24. const n=20; 

var sipacked array |l..n] of char; 

Напечатать литеры s t массива s в виде таблицы: 

SiV*- • - s n-ls n 

S s S,S 4 . . .S n Si 

W*- • ,S n-l s n-i 
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8.25. Программа. Напечатать величины а 0 , а„ ..., а*, 
где о„—заданное целое число, a n =0[ n /tj+a a -i при л=1, 
2 ... 99. 

8.26. const п=100; 

var x:array [l..n] of real; 

Преобразовать массив х по следующему правилу (х' к —> 
значение k-vo элемента массива после преобразования)! 

а) д^=тахдс ; при l<t<fc; 

б) * элементы массива расположить в обратном по¬ 
рядке; 

в) х[=Хі, х' п =х а , xh=(x k _i+x k +x i+1 )/3 при k—2, 
3, .... п —1; 

г) * элементы массива циклически сдвинуть на 
одну позицию влево: х' п =Хі, х' к =х к+і при k=l, 2, .... 
п— 1; 

д) элементы массива циклически сдвинуть на две по¬ 
зиции влево. 

8.27. ѵаг х,у:аггау [1..70] of real; 

k:1..69; 

Преобразовать массив х по следующему правилу (восполь¬ 
зовавшись массивом у как вспомогательным): 

а) все отрицательные элементы массива х перенести в 
его начало, а все остальные—в конец, сохраняя исход¬ 
ное взаимное расположение как среди отрицательных, тан 
и среди остальных элементов; 

б) элементы массива х циклически сдвинуть на к по¬ 
зиций влево. 

8.28*. const k=50; m=20; n=70; {n=k-fm} 
var x:array [l..k) of real; 
y:array [l..m] of real; 
z:array [l..n] of real; 

Элементы каждого из массивов хи у упорядочены по 
неубыванию. Объединить элементы этих двух массивов в 
один массив г так, чтобы они снова оказались упорядо¬ 
ченными по неубыванию. 

8.29. ѵаг k:0. .99999; 

d:packed array [1..5] of '0'./9'; 

а) В массив d записать цифры числа k. 

б) Получить к —целое, составленное из цифр массива d. 

8.30. type мантисса=раскеб array [1..9] 

of 'O'. /9'; 

порядок =packed array [1..2J 

of 'O'..'9'; 

var ппмантисса; ршорядок; xireal; 
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Переменной х присвоить вещественное число 

8.31. type месяц=(янв,фев,мар,апр,май,июн,июл, 

авг,сен,окт,ноя,дек); 
ѵаг КД:аггау [месяц] of 28..31; 

Присвоить каждому элементу массива КД значение, рав¬ 
ное количеству дней в соответствующем месяце (невисо¬ 
косного) года. 

8.32. ѵаг t:array [1..365] of real; 

пкмесяц; {см. 8.31} 

По массиву t, где указана температура каждого дня не¬ 
которого невисокосного года, определить т— название 
месяца с наибольшей среднемесячной температурой. 

8.33. const n=40; 

ѵаг xrarray [l..n] of integer; 
y,k:integer; t:boolean; 

Написать фрагмент программы для решения следующей 
задачи: 

а) * переменной t присвоить значение true, если эле¬ 
менты массива х упорядочены строго по возрастанию, и 
значение false иначе; 

б) переменной t присвоить значение true, если в мас¬ 
сиве х нет нулевых элементов и при этом положительные 
элементы чередуются с отрицательными, и значение false 
иначе; 

в) переменной k присвоить либо номер первого вхож¬ 
дения у в массив х, либо число п+1, если у не входит 
в х\ 

г) вычислить у=х 1 -\-х л х % +х і х^с а +. ..+Х]Х 2 . ..х т , где т — 
либо номер первого отрицательного элемента массива х, 
либо число п, если в массиве х нет отрицательных эле¬ 
ментов. 

8.34. Программа. Дан текст из 80 литер. Определить, 
симметричен ли он, т. е. читается ли он одинаково слева 
направо и справа налево. 

8.35*. type фамилия=(Бетелин, Войскунский, Коннов, 
Мальковский, Пильщиков, 
Школьный); 

имя=(Василий, Владимир, Игорь, Михаил, 
Олег, Юрий); 

ѵаг ММ511:аггау [фамилия] of имя; 

ЕстьТезки: boolean; 
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Переменной ЕстьТезки присвоить значение true, если в 
массиве ЛШ511 есть одинаковые имена, и значение false 
иначе. 

8.36. var хіаггау [1..50] of 1.. maxint; 

t: boolean; 

Переменной t присвоить значение true или false в зави¬ 
симости от того, есть или нет среди элементов массива ли 

а) хотя бы одно число Фибоначчи; 

б) не менее двух степеней двойки. 

8.37. type слово=раске<і array [1 ..10] of char; 
var х,у:слово; eqiboolean; 

Считая, что в каждом из слов х и у нет повторяющихся 
литер, присвоить переменной eq значение true, если слова- 
хи у отличаются только порядком входящих в них литер, 
и значение false иначе. 

8.38. const п=100; 

var xsarray |l..n] of real; 

Упорядочить массив x по неубыванию (т. е. переставить 
его элементы так, чтобы для всех k выполнялось А, 

используя следующий алгоритм сортировки (упорядочения)! 

а) * сортировка выбором ; отыскивается максимальный 
элемент и переносится в конец массива; затем этот метод 
применяется ко всем элементам, кроме последнего (он уже 
находится на своем окончательном месте), и т. д; 

б) сортировка обменом (метод пузырька)\ последова¬ 
тельно сравниваются пары соседних элементов х к и x k+t 
(й=1,2,3, ..., п— 1) и, если х к >х к+і , то они перестав¬ 
ляются; тем самым наибольший элемент окажется на 
своем месте в конце массива; затем этот метод применя¬ 
ется ко всем элементам, кроме последнего, и т. д; 

в) сортировка вставками : пусть первые k элементов 
массива уже упорядочены по неубыванию; берется (Л+1)-й 
элемент и размещается среди первых k элементов так, 
чтобы упорядоченными оказались уже k+ 1 первых эле¬ 
ментов; этот метод применяется при Л от 1 до л—1. 

8.39*. const п=500; 

ѵаг хіаггау [l..n] of integer; 
piinteger; ki0..n; 

Элементы массива x упорядочены по возрастанию. Тре¬ 
буется присвоить переменной k номер элемента массива х, 
равного числу у, или 0, если такого элемента нет. 

Использовать следующий метод двоичного (бинарного)' 
поиска! сравнить р со средним элементом массива (или 

45 



элементом около середины); если эти числа равны, поиск 
завершается, если же р меньше среднего элемента, то р 
надо искать в левой половине массива, а иначе—в пра¬ 
вой; к выбранной половине применяется этот же алгоритм. 

8.40. const п=80; 
type цифра=0..9; 

число=раскес1 array [l..nj of цифра; 
ѵаг а,Ь,с:число; t:boolean; 

Рассматривая а и b как последовательности цифр деся¬ 
тичной записи некоторых неотрицательных целых чисел, 
получить с—аналогичное представление для суммы этих 
двух чисел. Если в сумме окажется более п цифр, то ее 
левую цифру отбросить, а переменной t присвоить зна¬ 
чение true, иначе переменной t присвоить значение false. 

8.41. type элемент=0..99; 

множество=раске<1 array [элемент] 
of boolean; 

ѵаг х,у,г:множество; t:boolean; 

Рассматривая массивы х, у и г как представления неко¬ 
торых множеств из объектов типа Элемент (x[k]=true, 
если элемент k принадлежит множеству х, и x[k\=false 
иначе, н т. п.), реализовать следующие операции над 
этими массивами-множествами: 

а) переменной t присвоить значение true, если множе¬ 
ство х является подмножеством множества у, и значение 
false иначе; 

б) г—х(] у— пересечение множеств; 

в) z=xU у—объединение множеств; 

r) z=x\y —разность множеств (в г входят все эле¬ 
менты из х, которые не входят в у). 

8.42. const п=20; пі =21; fnl=n+l} 
ѵаг P,Q:array [0..n] of real; 

R:array [0..nl] of real; 
a:real; 

По P— массиву коэффициентов многочлена 

P {x)=:p 0 x n +p 1 x n - 1 + . . .+р п -іХ+р я 
получить! 

а) * R — массив коэффициентов многочлена (х —а)Р(х); 

б) Q— массив коэффициентов многочлена Р (х+а). 

8.43. Программа. Дана последовательность из 100 
различных целых чисел. Найти сумму чисел этой после¬ 
довательности, расположенных между максимальным и 
минимальным числами (в сумму включить и оба этих 
числа). 



8.44. Программа. Даны координаты п точек на плос¬ 
кости: х и у и ..., х п , у п (л=20). Найти номера двух 
точек, расстояние между которыми наибольшее (считать, 
что такая пара точек единственная). 

8.45. Программа. Даны две последовательности по 30 
целых чисел в каждой. Найти наименьшее среди тех чисел 
первой последовательности, которые не входят во вторую 
последовательность (считая, что хотя бы одно такое число 
есть). 

8.46. Программа. Дана последовательность из 20 це¬ 
лых чисел. Определить количество инверсий в этой по¬ 
следовательности (т. е. таких пар элементов, в которых 
большее число находится слева от меньшего: x t >Xj при 
»'</'). 

8.47. Программа. Дан текст из строчных латинских 
букв, за которым следует точка. Напечатать в алфавит¬ 
ном порядке все буквы, которые входят в этот текст по 
одному разу. 

8.48. Программа. Напечатать заданный текст из 100 
литер, удалив из него повторные вхождения каждой ли¬ 
теры. 

8.49. Программа. Определить, сколько различных литер 
входит в заданный текст, содержащий не более 100 литер 
и оканчивающийся точкой (в сам текст точка не входит). 

8.50. Программа. Дана непустая последовательность 
слов из строчных латинских букв; между соседними сло¬ 
вами—запятая, за последним словом—точка. Напечатать 
все буквы, которые входят в наибольшее количество слов 
этой последовательности. 

8.51. Программа. Подсчитать количество «счастливых» 
шестизначных автобусных билетов, т. е. таких, в номерах 
которых сумма трех первых цифр равна сумме трех по¬ 
следних. (Воспользоваться тем, что число «счастливых» 
билетов равно s?+s?-f- ... + si,, где s „— количество чисел 
от 0 до 999, сумма цифр которых равна п.) 

8.52. Программа. Дано целое k от 2 до 20. Найти 
коэффициенты k-vo многочлена Чебышева. ( Замечание: 
многочлены Чебышева Т п {х) определяются формулами 

Г,(х)=1; 7\ (*)=*; 

Т п (лс)=2х7’ я _, (*)-Т я _,(х), п=2, 3, .. .) 

8.53. Программа. Даны вещественные числа а 0 , а и ... 

a it . Найти коэффициенты многочлена (х—о,)(х— ad. .. 

■ • •.(*—' а »)* 
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8.54. Программа. По заданным коэффициентам много¬ 
члена 15-й степени и многочлена 8-й степени определить 
коэффициенты произведения этих многочленов. 

8.55. Программа. По заданным коэффициентам много¬ 
члена Р(х) 10-й степени и многочлена Q(x) 6-й степени 
определить коэффициенты многочлена P(Q(x)). 

9. РЕГУЛЯРНЫЕ ТИПЫ: МАТРИЦЫ 

9.1*. Одинаковы ли типы array [1..15,0..3] of char и 
array [1..15] of array [0..3] of char? 

9.2. type строка =array [1..20] of char; 

матр1 = array [1..10] of строка; 
матр2=аггау [1.. 15,1..20] of char; 
var А:матр1; В:матр2; 

Указать типы переменных А, А[3], А[9][18], А[1,1], В, 
В[15], В[3,3] и В[10][16]. 

9.3*. ѵаг А,В: array [1..15,0..8] of real; trboolean; 
Какие из указанных операций допустимы в Паскале? 
а) А:=В; б) А:-А+В; в) t:=A<>B; 
г) read(A); д) А[1]і=А[15]; е) А[2,3]:=В[4][81+В[1,1] 
9.4*. Программа. Ввести квадратную вещественную 
матрицу 4-го порядка, элементы которой заданы для ввода 
построчно, и распечатать ее по столбцам. 

9.5*. const п=20; 

ѵаг А,В,С:аггау [l..n,l..n] of real; 
x,y:array [l..n] of real; 

Вычислить: 

a) C—A+B; б) y=Ax\ в) C=A B\ 
г) B=B T (транспонировать). 

. 9.6*. var C,D:array [0..9,—5..3] of integer; t:boolean; 
Переменной t присвоить значение true, если массивы С 
и D равны, и значение false иначе. 

9.7. Программа. Даны натуральное п и (построчно) 
элементы квадратной вещественной матрицы А 5-го по¬ 
рядка. Вычислить п-ю степень этой матрицы (А 1 =А, 
А , =А-А, А 3 =А*-А и т. д.). 

9.8*. type vector=array [1..10] of real; 

tablel=array [1..8] of vector; 
table2=array [1..8,1..10] of real; 
var xivector; A:tablel; B:table2; 

Какие из указанных ниже операторов присваивания не¬ 
верны? 
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a) A:=B; 6) A[1]:=A[8J; в) B[3]:=A[3]; 
г) B[1]:=B[8]; д) x:==A[5]; e) B[5]: = x 

9.9. type вектор=аггау [1..20] of integer; 

матрица =array [1..20] of вектор; 
var А:матрица; х:вектор; 

B:array [1..20,1..20] of integer; 

Выписать фрагмент программы для решения следующей 
задачи: 

а) * нечетные строки матрицы А заменить на х; 

б) * четные столбцы матрицы А заменить .на х; 

в) * первые шесть строк массива В заменить на х; 

г) в матрице А поменять местами 1-ю и 2-ю строки, 
3-ю и 4-ю строки, ..., 19-ю и 20-ю строки (воспользо¬ 
ваться х как вспомогательным массивом); 

д) аналогичным образом поменять местами строки в В. 

9.10. Программа. Дана (построчно) вещественная мат¬ 
рица размером 7x4. Переставляя ее строки и столбцы, 
добиться того, чтобы наибольший элемент (один из них) 
оказался в верхнем левом углу. 

9.11*. type точка=аггау [(х,у)]. of real; 

var Mrarray [1..40] of точка; d:real; 
Рассматривая элементы массива М как координаты точек 
на плоскости, найти d— наибольшее расстояние между 
этими точками. 

9.12. type страна=(Алжир, Египет, Заир, Камерун, 
Конго, Ливия, Мали, Нигер, 
Судан, Чад, Эфиопия); 
ѵаг соседи: array [страна, страна] of boolean; 
с:страна; 

Элемент соседи[а,Ь] равен true, если страны а и Ь имеют 
общую границу, и равен false иначе. Определить с —стра¬ 
ну, имеющую наибольшее число соседей среди перечис¬ 
ленных стран. 

9.13*. type остров=(Барбадос,Гаити,Гренада,Куба, 
Мартиника,Ямайка); 

месяц=(янв,фев,мар,апр,май,июн,июл,авг, 
сен,окт,ноя,дек); 

var t:array [остров, месяц] of real; 
і:остров; ш:месяц; 

Элемент t[x,y\ означает среднемесячную температуру на 
острове х в месяце у. Определить, какой месяц ( т) и на 
каком острове (і) самый холодный. 

9.14*. ѵаг Asarray [1..9.1..9] of real; s:real; 
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Найти s —сумму элементов из заштрихованной области 
массива А (рис. 3). 

9.15. var D:array (1..10,1-10] of real; s:real; 

io 

Вычислить s = 2 m ax A- /• 

A=1 !«./<* 



Рис. 3 



\0 0 0 ... 1 / 

9.17. var A:array [1-6,1. .9] of real; 

x:array [1-9] of real; 

Заполнить массив А по следующему правилу! Ay=xj. 

9.18. type месяц=(янв,фев,мар,апр,май,июн,июл, 

авг, сен, окт, ноя, дек); 
дн=(пн,вт,ср,чт,пт,сб,вс,нет); 
календарь= array [месяц,1..31] of дн; 
ѵаг Кгкалендарь; 

Заполнить календарь К соответствующими днями недели 
(для несуществующих дат указать нет) при условии, что 
год невисокосный и 1 января—понедельник (К[янв, 1]і = 
пн; К[янв,2)\—вт\ ...; К[фев,29]і—нет; ...). 

9.19. var A:packed array [1-20,1..20] of boolean; 

Bipacked array [1..19,1..19] of boolean; 

П.Ы..20; 

Получить массив В из массива А удалением п- й строки 
и &-го столбца. 
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9.20. var A:array [1,.15,1-20] of integer; 

b:array [1..15] of boolean; 

По массиву А получить массив b, присвоив его 6-му 
элементу значение true, если выполнено указанное ниже 
условие, и значение false иначе: 

а) * все элементы 6-го столбца массива А нулевые; 

б) элементы 6-й строки массива А упорядочены по 
убыванию; 

в) 6-я строка массива А симметрична. 

9.21. const п=8; т=12; 
var k: integer; 

C:array [l..n,l..m] of integer; 

Определить 6— количество «особых» элементов массива С, 
считая элемент «особым», если: 

а) он больше суммы остальных элементов своего столбца; 

б) в его строке слева от него находятся элементы, 
меньшие его, а справа—большие. 

9.22. var k:integer; 

Garray [1..13,1-18] of char; 

Определить 6— количество различных элементов массива С 
(т.е. повторяющиеся элементы считать один раз). 

9.23. Программа. Дана вещественная матрица размером 
20 x 30. Упорядочить ее строки по неубыванию: 

а) * их первых элементов; 

б) суммы их элементов; 

в) их наибольших элементов. 

9.24. Имеется таблица Т результатов некоторого шах¬ 
матного турнира, в котором участвовало п шахматистов 
(п>2): 

T:array [l..n,l..n] of (В,Н,П,Х), 

где Т [i,j]=B, если і-й участник выиграл у /-го (при 
этом Т[і,і]=П), T[i,j]=H, если і-й и /-й участники 
сыграли вничью, и Т[і,і]=Х. Возможный вид таблицы 
(при п=3): 



За выигрыш дается 1 очко, за ничью—0.5 очка, за про¬ 
игрыш—0 очков. Выдать на печать номера участников в 
порядке невозрастания набранных ими очков. 

9.25. type имя=(Анна, ..., Юрий); 

родство=(сын, дочь,отец,мать, нет); 
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ѵаг ТР-аггау [имя,имя] of родство; 

И,В,Д:имя; kiinteger; 

На основе (непротиворечивой) таблицы родства ТР 
(ТР[х,у\=нет, если у не является ни родителем, ни ре¬ 
бенком х’а, ТР[х,у]=сын, если у — сын х’а, и т. п.) при¬ 
своить переменной: 

а) * В —имя одной (любой) из внучек человека с име¬ 
нем И, если такие есть; 

б) Д —имя одного (любого) из дядей человека с име¬ 
нем И, если такие есть (дядями считать только братьев 
родителей); 

в) k —количество всех кузин и кузенов (двоюродных 
сестер и братьев) человека с именем И. 

9.26. const п=256; 

type screen=packed array [l..n, l..n] of 0..1; 
var S:screen; 

Преобразовать массив S, осуществив поворот элементов 
вокруг его центра на 90° против часовой стрелки. 

9.27. Программа. Определить, является ли заданная 
целая квадратная матрица 10-го порядка симметричной 
(относительно главной диагонали). 

9.28. Программа. Элемент матрицы назовем седловой 
точкой, если он является наименьшим в своей строке и 
одновременно наибольшим в своем столбце или, наоборот, 
является наибольшим в своей строке и наименьшим в 
своем столбце. Для заданной целой матрицы размером 
10x15 напечатать индексы всех ее седловых точек. 

9.29. Программа. Дана вещественная матрица разме¬ 
ром 7x7, все элементы которой различны. Найти ска¬ 
лярное произведение строки, в которой находится наи¬ 
больший элемент матрицы, на столбец с наименьшим 
элементом. 

9.30. Программа. Определить, является ли заданная 
целая квадратная матрица 10-го порядка ортонормирован¬ 
ной, т. е. такой, в которой скалярное произведение каж¬ 
дой пары различных строк равно 0, а скалярное произ¬ 
ведение каждой строки на себя равно 1. 

9.31. Программа. Определить, является ли заданная 
целая квадратная матрица 9-го порядка магическим квад¬ 
ратом, т. е. такой, в которой суммы элементов во всех 
строках и столбцах одинаковы. 

9.32. Программа. Дана непустая последовательность 
слов из строчных латинских букв; слова разделяются за¬ 
пятыми, за последним словом—точка. Среди всех пар а, 
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и b h где а,—первая, a b t —последняя буквы і-го слова 
последовательности, определить наиболее часто встречаю¬ 
щуюся пару. 

9.33. Программа. По заданным коэффициентам ац, 
Оц, а 1п , а 22 , а 2і , ..., а 2п , ..., а пп (п= 20, а п Ф 0) и 
правым частям Ь и Ь 2 , .... Ь„ найти решение «треуголь¬ 
ной» системы линейных уравнений: 

ацХ 1 +а 12 х 2 +а 13 х а +... +« 1п х„=& 1 
а 22 х 2 +а 23 х 3 +... +а 2п х п =Ь 2 
а 33 х 3 -{-...+а гп х п =Ь 2 

а„ п х п =Ь п 

9.34. Программа. По заданным коэффициентам А и и 
правым частям Ь,- решить систему линейных уравнений 

2 Ац Xj=b[ (і= 1, 2, ...,n; л=10), 

считая, что ее определитель отличен от 0. ( Рекомендация : 
систему предварительно привести к «треугольному» виду.) 

9.35. Программа. Даны координаты п векторов «-мер¬ 
ного линейного пространства (л=7). Определить, явля¬ 
ются ли они линейно независимыми. 

9.36. Программа. Дана квадратная матрица п-то по¬ 
рядка («=6). Найти матрицу, обратную ей, или устано¬ 
вить, что такой не существует. ( Замечание : если линейными 
преобразованиями строк привести заданную матрицу к 
единичной, то этими же преобразованиями единичная 
матрица будет приведена к искомой обратной матрице.) 


10. РЕГУЛЯРНЫЕ ТИПЫ: СТРОКИ 

10.1*. Какие из следующих типов являются строко¬ 
выми, а какие нет и почему? 

const п=20; 

type a=array [1 ..30] of char; 

b=packed array [l..n] of char; 
c=packed array [0..n] of char; 
d=packed array ['l'..'9'l of char; 
e=packed array [l..n, l..n] of char; 
f=packed array [ 1 ..10] of V..V; 
g=packed array [1..1J of char; 




10.2*. const n=5; 

var al,a2:packed array [1 ..n] of char; 
bl,b2:array [l..n] of char; 
c:packed array [1..5] of char; 

Какие из указанных ниже операций допустимы в Паскале? 

а) а1;=а2; б) Ь2:=Ы; в) а1:=Ы; г) с:=а2; 

д) а2:='Ы+Ь2'; е) Ы:='12345'; 

ж) c: = 'abc'; з) а1<а2; и) Ы=Ь2; 

к) а2>с; л) с>='12345'; м) а1<>'**'; 

н) read(c); о) write(al,'=',a2); п) writeln(bl) 

10.3*. Программа. Дана последовательность из 60 ли¬ 
тер. Напечатать эту последовательность дважды, в двух 
строках. 

10.4*. type набор= array [1..8J of char; 

слово= packed array [1..8] of char; 
var al;array [1..20] of набор; 
a2:array [ l. .30] of слово; 
kl, k2:integer; 

Подсчитать A:1— количество наборов массива cl, совпа¬ 
дающих с его первым набором, и k2 —количество слов 
массива а2, совпадающих с его первым словом. 

10.5. ‘type слово= packed array [1..5] of char; 
список=аггау [1..60] of слово; 
var Сгсписок; 

Напечатать: 

а) * все слова из списка С, отличные от слова hello; 

б) то слово из списка С, которое лексикографически 
(по алфавиту) предшествует всем другим словам этого 
списка (считать, что все слова различны); 

в) * текст, составленный из последних литер всех слов 
списка С; 

г) все слова из списка С, содержащие ровно две бук¬ 
вы d. 

10.6*. var s:packed array [1..6] of char; 

Во входном файле input задано от 1 до 6 букв, за кото¬ 
рыми следует точка. Ввести эти буквы и записать их в 
начало строки s, дополнив конец этой строки пробелами. 

10.7. Программа. Даны два различных слова, в каж¬ 
дом из которых от 1 до 8 строчных латинских букв и 
за каждым из которых—пробел. Напечатать эти слова в 
алфавитном порядке. (Считать, что литера «пробел» пред¬ 
шествует любой литере-букве.) 

10.8*. type color=(red,blue,green,yellow,black,white); 
var x:color; 
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Во входном файле задана последовательность строчных 
латинских букв, за которой следует пробел. Если это 
правильная запись значения типа color, то присвоить его 
переменной х, иначе сообщить об ошибке. 

10.9. Найти ошибки в следующей программе: 

program errors (input, output); 
const sign='-|— */'; 
var stpacked array [1 ..10] of char; 
i,j,k:integer; 

begin read(s); 

for i: = l to 10 do 
for j: = 1 to 4 do 
if s[i]=sign[j] then k:=k+l; 
if k<6 then writeln(s) else writeln(sign) 

end. 

10.10*. const v='aeiou'; 

type crpoKa=packed array [1 ..200] of char; 
var srcrpoKa; k:0..200; 

Определить, сколько раз (fe) в строку s входят литеры, 
перечисленные в константе ѵ. 

10.11*. Программа. Дан текст из 60 литер. Напеча¬ 
тать только строчные русские буквы, входящие в этот текст. 

10.12. Программа. Дан текст из строчных русских 
букв, за которым следует точка. Напечатать этот текст 
заглавными русскими буквами. 

10.13. Программа. Дан непустой текст из заглавных 
русских букв, за которым следует точка. Определить, 
упорядочены ли эти буквы по алфавиту. 

10.14. Программа. Напечатать в алфавитном порядке 
все различные строчные русские буквы, входящие в за¬ 
данный текст из 200 литер. 

10.15. type строка =packed array [1 ..80] of char; 
var s:cTpoKa; 

Известно, что в начале строки s находится не более 40 
латинских букв, за которыми следуют пробелы. Напеча¬ 
тать эту строку, предварительно преобразовав ее следу¬ 
ющим образом: 

а) все вхождения abc заменить на def; 

б) * удалить первое вхождение w, если такое есть 
(образовавшуюся «дыру» заполнить последующими бук¬ 
вами, а в конец добавить пробел); 

в) удалить все вхождения th; 

г) * заменить на ks первое вхождение х, если такое 
есть; 
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д) после каждой буквы q добавить букву и; 

е) заменить все вхождения ph на f, а все вхождения 
ed на ing. 

10.16. Программа. Дана последовательность, содержа, 
щая от 1 до 30 слов, в каждом из которых от 1 до 5 
строчных латинских букв; между соседними словами—за¬ 
пятая, за последним словом—точка. Напечатать: 

а) эту же последовательность слов, но в обратном 
порядке; 

б) те слова, перед которыми в последовательности на¬ 
ходятся только меньшие (по алфавиту) слова, а за ними — 
только большие; 

в) эту же последовательность слов, но удалив из нее 
повторные вхождения слов; 

г) все слова, которые встречаются в последователь¬ 
ности по одному разу; 

д) все различные слова, указав для каждого из них 
число его вхождений в последовательность; 

е) все слова в алфавитном порядке. 

10.17. Программа. Дана последовательность, содер¬ 
жащая от 2 до 50 слов, в каждом из которых от 1 до 8 
строчных латинских букв; между соседними словами — 
не менее одного пробела, за последним словом—точка. 
Напечатать те слова последовательности, которые отлич¬ 
ны от последнего слова и удовлетворяют следующему 
свойству: 

а) слово симметрично; 

б) первая буква слова входит в него еще раз; 

в) буквы слова упорядочены по алфавиту; 

г) слово совпадает с начальным отрезком латинского 
алфавита (a, ab, abc и т. д.); учесть, что в диапазоне 
V..V могут быть литеры, отличные от латинских букв; 

д) слово совпадает с конечным отрезком латинского 
алфавита (z, yz, xyz и т. д.); 

е) длина слова максимальна; 

ж) в слове нет повторяющихся букв; 

з) каждая буква входит в слово не менее двух раз; 

и) в слове гласные буквы (а, е, і, о, и) чередуются 
с согласными. 

10.18. Программа. Дана последовательность, содер¬ 
жащая от 2 до 30 слов, в каждом из которых от 2 до 10 
латинских букв; между соседними словами—не менее 
одного пробела, за последним словом—точка. Напечатать 
все слова, отличные от последнего слова, предварительно 
преобразовав каждое из них по следующему правилу» 
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а) перенести первую букву в конец слова; 

б) перенести последнюю букву в начало слова; 

в) удалить из слова первую букву; 

г) удалить из слова последнюю букву; 

д) удалить из слова все последующие вхождения пер¬ 
вой буквы; 

е) удалить из слова все предыдущие вхождения по¬ 
следней буквы; 

ж) оставить в слове только первые вхождения каждой 
буквы; 

з) если слово нечетной длины, то удалить его среднюю 
букву. 

10.19. Программа. Заданное целое число от 1 до 1999 
напечатать римскими цифрами. 

10.20. Программа. Дан текст из заглавных латинских 
букв, за которым следует пробел. Определить, является 
ли этот текст правильной записью римскими цифрами 
целого числа от 1 до 999, и, если является, напечатать 
это число арабскими цифрами (в десятичной системе). 

10.21. Программа. Даны две литеры—латинская буква 
(от а до h) и цифра (от 1 до 8), например а2 или g5. 
Рассматривая их как координаты поля шахматной доски, 
на котором находится ферзь, нарисовать шахматную доску, 
пометив крестиками все поля, которые «бьет» этот ферзь, 
и ноликами все остальные поля. 

10.22. Решить предыдущую задачу для шахматного 
коня. 

10.23. Известно, что астрологи делят год на 12 пери¬ 
одов и каждому из них ставят в соответствие один из 
знаков Зодиака: 


20.1 —18.2—Водолей 

19.2— 20.3—Рыбы 

21.3— 19.4—Овен 

20.4— 20.5—Телец 

21.5— 21.6—Близнецы 

22.6— 22.7—Рак 


23.7— 22.8 —Лев 

23.8— 22.9 —Дева 

23.9— 22.10 —Весы 

23.10— 22.11 —Скорпион 

23.11— 21.12—Стрелец 

22.12— 19.1 —Козерог 


Написать программу, которая вводит дату некоторого 
дня года и печатает название соответствующего знака 
Зодиака. 

10.24. Программа. Дан текст из 60 литер. Напечатать 
этот текст, подчеркивая (ставя минусы в соответствующих 
позициях следующей строки) все входящие в него за¬ 
главные и строчные русские буквы. 
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10.25. Программа. Дана последовательность, содер¬ 

жащая от 1 до 90 слов, в каждом из которых от 1 до іб 
Строчных русских букв; между соседними словами—ив 

менее одного пробела, за последним словом—точка. На¬ 
печатать эти слова по алфавиту. 

10.26. Программа. Напечатать таблицу умножения в 
шестнадцатеричной системе счисления. 

И. ФУНКЦИИ И ПРОЦЕДУРЫ 
11.1. ѵаг х, у, z:real; 

Вычислить z=(signx+sign i/)-sign(jt+y), где 
—1 при а<0, 

0 при а=0, 

1 при а>0. 

При решении этой задачи: 

а) не использовать функцию sign; 

б) * определить и использовать функцию sign. 

11.2*. Программа. По вещественному х вычислить ве¬ 
личину 

sh(x) • tg(*+ 1 )-tg*(2+sh(x-l )). 

11.3*. type страна=(Австрия, Гана, Италия, Перу, 
США, Швеция); 

континент=(Америка, Африка, Европа); 
ѵаг х,у:страна; t:boolean; 

Описать функцию Ko«m(s), определяющую континент, на 
котором находится страна s, и использовать ее для из¬ 
менения значения переменной t на противоположное, если 
страны хи у находятся на разных континентах. 

11.4*. type натур =l..maxint; 
ѵаг a,b:real; кгнатур; 

Описать функцию степенях, п) от вещественного х и нату¬ 
рального и, вычисляющую (через умножение) величину х п , 
и использовать ее для вычисления b=2.7*+(a-f 1)~*. 

11.5. Программа. Даны три натуральных числа. Оп¬ 
ределить их наибольший общий делитель. 

11.6. type натур = l..maxint; 
ѵаг ш,п:натур; 

function НОД(а,Ь:натур):натур; 
begin while a<>b do 

if a>b then ar=a—b 
else bi=b—a; 
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НОД:=а 

end; 

а) * Определить, что будет выдано на печать: 

т:=8; п:=6; тѵгИе1п(НОД(т,п), т,п); 

б) Объяснить, почему при вычислении НОД(т, га) не 
меняются значения переменных тип , хотя в теле функ¬ 
ции оба параметра изменяют свое значение. 

11.7. Указать ошибки в описании функции: 

а) function f(a:'a'..V):integer; 

begin f:=ord(a)—ord('p'); 

if f<0 then f:=—f end; 

б) function g(k:integer):0..maxint; 

var i,s:0..maxint; 

begin s:=0; 

for i: —1 to k do s:=s+sqr(i) end; 

в) function h(x:integer):integer; 

begin h(x):=(sqr(x)+x)/2 end 

11.8*. Программа. Даны отрезки a, b, с и d. Для 
каждой тройки этих отрезков, из которых можно постро¬ 
ить треугольник, напечатать площадь данного треуголь¬ 
ника. (Определить процедуру печплощ(х, у, г), печата¬ 
ющую площадь треугольника со сторонами х, у и z, если 
такой треугольник существует.) 

11.9. var c,d:integer; 

procedure P(x,y:integer); 

begin y:=x+l end; 
procedure Q(x:integer; var y:integer); 

begin y:=x+l end; 
procedure R(var x,y:integer); 
begin y:=x-f 1 end; 

а) Для каждой из этих процедур указать, какие из 
ее параметров являются параметрами-значениями, а ка¬ 
кие—параметрами-переменными. 

б) * Определить, что будет выдано на печать: 

с:=2; di=0; P(sqr(c)-l-c,d); writeln(d); 

с: =2; d:=0; Q(sqr(c)-f c,d); writeln(d); 

Почему при изменении в процедуре параметра-значения 
соответствующий фактический параметр не меняет своего 
значения? Что надо сделать, чтобы он менял значение? 

в) * Допустимы ли обращения R(sqr(c)+c, d) и R(c,d)7 
Почему невыгодно объявлять параметр, не меняющийся 
в процедуре, параметром-переменной? 
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11.10. Пусть процедура coicp(a,b,p,q) от целых пара¬ 
метров (Ьф 0) приводит дробь а/Ь к несократимому виду 
РІЯ- . 

а) Какие из параметров этой процедуры обозначают 
исходные данные для нее, а какие—результаты? Какие 
параметры следует объявить параметрами-значениями, а 
какие—параметрами-переменными? 

б) * Допустимы ли обращения со/с/?(А:+1,14,п,7) и 
coKp(k,sqrt(36),k,n), где k и п —целые переменные? 

в) * Описать данную процедуру и использовать ее для 
приведения дроби 1 + 1/2+1/3+.. . + 1/20 к несократи¬ 
мому виду c/d. 

11.11. Пусть процедура тахтіп(х,у) присваивает па¬ 
раметру х большее из вещественных чисел х и у, а па¬ 
раметру у —меньшее. 

а) Какие из параметров этой процедуры обозначают 
исходные данные для нее, а какие—результаты? Какие 
параметры следует объявить параметрами-значениями, а 
какие—параметрами-переменными? 

б) * Допустимы ли обращения maxmin{5.2,sin(z)) и 
maxmin(z,k), где г —вещественная переменная, а к —целая? 

в) * Описать данную процедуру и использовать ее для 
перераспределения значений вещественных переменных 
а, Ь и с так, чтобы стало а>Ь>с. 

11.12. const п=1000; 

type вектор= array 11 ..n] of real; 
ѵаг а,Ь,с,(1:вектор; 

Пусть процедура sum(x,y,z) присваивает вектору г сумму 
векторов хи у. 

а) Объяснить, почему параметры хну, хотя они и 
не обозначают результаты работы этой процедуры, невы¬ 
годно объявлять параметрами-значениями. 

б) * Описать данную процедуру и использовать ее для 
вычисления d=a+b+c. 

11.13. Для каждой из следующих задач ответить на 
вопросы: 

Какую подзадачу приходится решать в ней несколько 
раз? Как следует описать решение этой подзадачи—как 
функцию или как процедуру? Сколько у этой функции 
или процедуры параметров? Каков их смысл? Какие из 
них—параметры-значения, а какие—параметры-перемен¬ 
ные? 

Описать данную функцию или процедуру и с ее по¬ 
мощью решить задачу. 
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а) type строка— packed array [1..60J of char; 
var s f t:cTpoKa, k:integer; 

Если в первой половине строки s менее 12 цифр и если 
в последней четверти строки t нет литер от 'а' до V, 
тогда вычислить k —количество литер V, входящих в 
среднюю треть строки s. 

б) var a,b:real; t:boolean; 

Переменной t присвоить значение true, если уравнения 
х 2 +6.2х+а 2 =0 и х 2 +ах+Ь —1 =0 имеют вещественные 
корни и при этом оба корня первого уравнения лежат 
между корнями второго, и присвоить значение false во 
всех остальных случаях. 

в) const п=10; 

type матрица= array [l..n,l..n] of real; 

вектор =array [l..nj of real; 
var А,В,С:матрица; х,у,г,и:вектор; 

Вычислить u=Ax+By—Cz+Bx. 

г) type вектор=аггау [1..40] of integei 
var х,у,г:вектор; 

Если наибольший элемент вектора х равен 10 • и нахо¬ 
дится в первой половине этого вектора и если в векторе 
у нет положительных элементов, тогда все элементы век¬ 
тора z, предшествующие его наибольшему элементу, за¬ 
менить на их кубы. (Считать, что в каждом векторе наи¬ 
больший элемент один.) 

11.14. Найти ошибки в следующей программе: 
program errors (input,output); 
const n=40; 

type vector=array [1 ..n] of real; 
var a,b:vector; 

function sum(var x,y:vector):vector; 
var iiinteger; z:vector; 
begin for ii = l to n do z[ij: =х[іЦ-у[і]; 
sum:=z end; 

procedure reverse(x:vector); 
var iiinteger; nreal; 
begin for i: = l to n div 2 do 

begin n=x[i]; x[i]:=x|n+l— i); 
x[n+l—i]:=r end 

end; 

begin read(a); bi=sum(a,reverse(a)); 
writeln(b) end. 
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11.15. Программа. Найти сумму кубов всех корней 
уравнения 

ех 3 —пх 2 — (2е +1 )х+2п =0 

(я=З.І415927, е=2.7182818), вычисленных с точностью 
0.0001. 

11.16. Программа. Даны длины а, Ь и с сторон не¬ 
которого треугольника. Найти медианы треугольника, 
сторонами которого являются медианы исходного тре¬ 
угольника. (. Замечание : длина медианы, проведенной к 
стороне а, равна 0.5К 2Ь*+2с* —д*.) 

11.17. Программа. Даны три слова, в каждом из ко¬ 
торых от 1 до 6 строчных латинских букв и за каждым 
из которых следует пробел. Напечатать эти слова в ал¬ 
фавитном порядке. 

11.18*. Программа. По заданным вещественным числам 

а„ ах, .... а,о, Ь„ ft, . ft„. с„ с и .... с м , х, у, г 

вычислить величину 

(а„х»°+а 1 * 2, + -. .+а зо) г-(Ь а у 3 <>+Ь 1 у »+.. .+ft M ) 

с 0 (х+г) ,в -|-Сі(-*+2) ,, + ... +с„ 

11.19. Программа. По заданным 20-элементным целым 
массивам х п у вычислить 

{ 20 15 

2 4 при 2 ХіУі> 0. 

Іо ‘ 

2 Ус иначе. 

£=Ю 

11.20. Программа. По заданным 50-элементным веще¬ 
ственным массивам а, ft и с вычислить 

/=! шах(а/)'+ т”“нІ) " РИ min ( a «)< max (6«). 

( тах(Ь,-+с,-)-Ь min(c,-) иначе. 

11.21. Программа. Даны 30-элементные вещественные 
векторы х, у и г. Вычислить величину (д,д)— (ft, с), где а 
обозначает тот из этих векторов, в котором самый боль¬ 
шой минимальный элемент (считать, что такой вектор 
единственный), ft и с обозначают два других вектора, а 
(p,q) —скалярное произведение р и q. 

11.22. Программа. Даны две квадратные вещественные 
матрицы 10-го порядка. Напечатать квадрат той из них, в 
которой наименьший след (сумма диагональных элемен¬ 
тов), считая, что такая матрица одна. 
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11.23. Найти ошибки в следующей программе: 

а) program errors (output); 

const a='1234'; 

type string=packed array [1 ..4] of char; 
var b:string; 

procedure P(sl:string; var s2:string); 
begin writeln(sl ,s2) end; 
begin P('abcd','efgh'); P(a,a); 
b:=a; P(b,b) end. 

б) program error (output); 

type string=packed array [1..3] of char; 
var x:string; 

procedure Q(c:char; var d:char); 
begin d:=succ(c) end; 

begin x:='295'; Q(x[l],x[3]); writeln(x) end. 

11.24*. Определить, что будет выдано на печать! 

program print (output); 

type vect=array [1..2] of real; 
var a:vect; i:integer; 
procedure R(var k:integer; var x:real); 
begin k:=2; x:=0 end; 
begin allJ: = l; a{2]:=2; 
i:=l; R(i,a[iJ); 
writeln(all],a(2]) 

end. 

11.25*. type сдаиг=1 . .19; 

шкала=раскеб array [1..20] of 

boolean; 

Описать процедуру cde(s,k), которая преобразует шкалу s, 
циклически сдвигая ее элементы на k позиций влево, где 
k —параметр типа сдвиг. 

11.26. const n=15; т=20; 

type матрица=аггау [l..n, l..m] of real; 
Описать функцию сум{А), вычисляющую величину 
*А+ Ѵ«-і+ • • • + х п*и 

где Хі —максимальный элемент t -й строки матрицы А. 
11.27*. type неотриц=0. .maxint; 

Описать функцию F(m,n)=nb/w!/(n+/ra)l, где п и т— не¬ 
отрицательные целые числа. (Определить внутреннюю функ¬ 
цию, вычисляющую факториал.) 



11.28*. type вектор =array [1..20] of char; 

Описать процедуру преобр(х,у,а,Ь) от четырех векторов, 
которая преобразует векторы х и у к следующему виду: 

х=(а 1 ,а І , ... ,a t ,x t ,x 10 .х и ), 

У=(Уі .0» А. ь *>Уі2 . У «Л, • • • ,a t ). 

11.29. type слово =packed array [1..9] of char; 
Описать логическую функцию перестановка^,у), проверяю¬ 
щую, можно ли, переставив литеры слова х, получить 
слово у. 

11.30. const n=8; m = 13; 

type матрица=аггау [l..n,l..m] of real; 
Описать процедуру swap(A,B), меняющую местами макси¬ 
мальные элементы матриц А и В. (Считать, что в каждой 
матрице только один максимальный элемент.) 

11.31. const п=...; (целая константа > 1} 
type число= array [Г. .n] of '0'..'9'; 

массив = array [1..40] of число; 

Описать процедуру sort(x), упорядочивающую по не¬ 
убыванию числа массива х следующим методом: все числа 
из х упорядочить по последней цифре и перенести во 
вспомогательный массив у; затем числа из у упорядочить 
по предпоследней цифре (при 'равенстве этих цифр сохра¬ 
нять упорядоченность по последней цифре) и записать их 
снова в массив х\ далее числа из х упорядочить по третьей 
от конца цифре и перенести в массив у\ и т. д. (Учесть, 
что в конце концов числа должны оказаться в х.) 

11.32*. Перечислить локальные (в том числе формаль¬ 
ные параметры) и глобальные имена, используемые в сле¬ 
дующей процедуре: 

procedure P(x:vect; ѵаг у: integer); 
const z=V; 
var c:index; 
begin y:=0; 

for C2=a to b do if x[c]>z then y:==y+l 
end 

11.33*. Что будет напечатано следующей программой? 

a) program print (output); 
var x,y:char; 
procedure P(x:integer); 
const у =true; 
begin writeln(x/ ' ,y) end; 
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procedure Q; 
var x:char; 

begin x:=succ(y); y:=V; writeln(x,' \y) 
end; 

begin xi='a'; y:='5'; 

P(8); writelnfx,' ',y); 

Q; writeln(x, f ,y) 

end. 

б) program print (output); 

type string—packed array [1..6J of char; 
var i: integer; t:string; 
procedure P(var s:string); 
begin i:=l; 

while s[i]<'9' do 

begin s[i]:=succ(s[i]); li=f+l end 

end; 

begin i:=l; t:='12945'; P(t); 
writeln(t[i]) end. 

в) program print (output); 

var a,b,c,d:integer; 
procedure P(var b: integer; c: integer); 
var d: integer; 

begin a:=5; b:=6; c:=7; d:=8; 
writeln(a,b,c,d) end; 
begin a: = 1; b:=2; c:=3; d:=4; 

P(a,b); writeln(a,b,c,d) 

end. 

11.34. Найти ошибки в следующем описании процедуры! 
procedure errors(var x:boolean); 

const char=0; case=l; 

type a==(true,false); b=('a','b'); 

var c:char; 

begin if x then x:=(ord(true)=char) and 

false end 

11.35. type индекс=1 . .20; 

матрица=аггау [индекс,индекс] of real; 

Описать функцию max(A,n,k), где А —матрица, а п и k — 
индексы ( n<k ), вычисляющую наибольший элемент заштри¬ 
хованной области матрицы А (рис. 4). 

11.36. type table^arraV [1.. 10,1.. 101 of integer; 

table2=array [1. .20,1. .30] of integer; 
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Описать процедуру constr(A,B,C,D), которая по матрицам 
А, В к С типа table! строит следующую матрицу D типа 
table 2і 



где N — нулевая матрица типа table 1. 

11.37. Программа. Дана непустая последовательность 
слов, в каждом из которых от 1 до 6 латинских букв; 


л 

к 


между соседними словами—запятая, за последним сло¬ 
вом—точка. Напечатать те слова, у которых одинаковые 
«соседи», т. е. совпадают предыдущее и следующее слова. 
(Определить процедуру readword(w), которая вводит оче¬ 
редное слово и присваивает его 6-литерной строке w, а за¬ 
пятую или точку присваивает некоторой глобальной пере¬ 
менной.) 

11.38. Программа. Даны 6-элементные вещественные 
векторы х и у и квадратные матрицы А, В и С 6-го по¬ 
рядка. Вычислить величину (Ах,Ву)+(Сх,у)/(х,Ву). 

11.39. Программа. Даны три вещественные квадратные 
матрицы 4-го порядка. Напечатать ту из них, норма кото¬ 
рой наименьшая (считать, что такая матрица одна). В ка¬ 
честве нормы матрицы взять максимум абсолютных величин 
ее элементов. 

11.40*. Программа. По заданным вещественным числам 
с и d (c<d) вычислить 

d я 

J arctg 2 xdx+J sine 10 *dx. 

с О 

Интегралы вычислять приближенно по формуле трапеций 
при п=20 для первого интеграла и при л=Л00 для второго: 

5/ (x)dxtth ■ (а)/2+ 2/(а+»А)+/(6)/2 

где h—(b—a)ln. 

66 


п к 



Рис. 4 



11.41. Программа. По заданным 40-элементным вещест¬ 
венным векторам х, у и г вычислить 

JII(sin(^)+2) при П(1-«/П>0.5, 

1 ПО —*<) иначе. 


11.42. Программа. Напечатать в порядке возрастания 
корни уравнений 

1/(1+**)=*, 3е*+х=0 и *-1п(1+*)=0.5, 

вычисленные с заданной точностью е>0. 

11.43. const п=20; 

type вектор = array [1. .n] of real; 


Описать процедуру изм(х,у,г), которая в том из векторов я, 
у и г, где больше всего отрицательных элементов (считать, 
что такой вектор один), все его положительные элементы 
заменяет! на их кубы—если это вектор х или вектор а, 
и на их обратные величины—если это вектор у. 

11.44*. Определить, что будет выдано на печать (счи 
тать, что операнды вычисляются слева направо)! 

program si deeffect (output); 
ѵаг а, Ы integer; 
function f(x:integer)3integer; 

begin f’=x; a!=0 end; 
function g(var x!integer):integer; 
begin gs=x; x:=0 end; 

begin aj = l; write(a+f(a)); a:=l; write(f(a)+a)j 
b:=2; writeln(g(b)=g(b)) 

end. 


11.45. Привести примеры, когда в Паскале не выпол¬ 
няются равенства у=у, у+у=2*у, b and b=b. 

11.46*. Описать функцию next без параметров, которая 
считывает из входного файла первую литеру, отличную 
от пробела, и объявляет ее своим значением. Использо¬ 
вать эту функцию для подсчета k —количества отличных 
от пробела литер текста, который задан во входном файле 
и за которым следует точка. 

11.47. 

const d=100; m=5; 

type строка =packed array [l..d] of char; 
подстрока =packed array.[i. .m] of char; 
позиция = 1. .d; 

ѵаг хістрока; у.гшодстрока; 
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Описать логическую функцию noucK(s,ss,k,ri), проверяю¬ 
щую, входит ли подстрока ss в ту часть строки s, которая 
начинается с &-й позиции, и, если входит, присваиваю¬ 
щую параметру п номер позиции, с которой начинается 
первое вхождение ss в эту часть строки s. 

Используя данную функцию, заменить в строке х все 
вхождения подстроки у на подстроку г. 

11.48. Программа. Даны координаты вершин двух тре¬ 
угольников. Определить, какой из них имеет большую 
площадь. 

11.49. Программа. Даны координаты вершин треуголь¬ 
ника и координаты некоторой точки внутри него. Найти 
расстояние от данной точки до ближайшей стороны тре¬ 
угольника. (При определении расстояний учесть, что пло¬ 
щадь треугольника вычисляется и через три его стороны, 
и через основание и высоту.) 

11.50. Программа. Три прямые на плоскости заданы 
уравнениями а к х-\-Ь к у—с к (k=\, 2, 3). Если этй прямые 
попарно пересекаются и образуют треугольник, тогда найти 
его площадь. 

11.51. Программа. Найти наименьшее общее кратное 
четырех заданных натуральных чисел. 

11.52. Программа. Два простых числа называются 
«близнецами», если они отличаются друг от друга на 2 
(таковы, например, числа 41 и 43). Напечатать все пары 
«близнецов» из отрезка [л,2л], где я—заданное целое число, 
большее 2. 

11.53. Программа. Два натуральных числа называются 
«дружественными», если каждое из них равно сумме всех 
делителей другого, за исключением его самого (таковы, 
например, числа 220 и 284). Напечатать все пары «дру¬ 
жественных» чисел, не превосходящих заданного натураль¬ 
ного числа. 

11.54. Программа. Даны коэффициенты многочленов 
Р(х) и Q(x) 15-й степени и дано вещественное число а. 
Вычислить величину P(a-}-Q(a)P(a+l)). 

11.55. Программа. По вещественному числу а>0 вы¬ 
числить величину 

у-д-Ѵ g+T 

1+1/3+а 

Корни у=\/х вычислять с точностью е=0.0001 по сле¬ 
дующей итерационной формуле: 

0о=1; 0 л+ і=0„+(*/05 -1 — У„)/Ь (п=0, 1, 2,...), 
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приняв за ответ приближение y n+ t, для которого 
\У п+ і—Уп Ke¬ 
ll. 56. Программа. По вещественным числам е>0 и t 
вычислить с точностью е величину 


-=?+/!+=Ф 


Для вычисления корней использовать следующий ряд Тей¬ 
лора: 

(І+^=1+^-х+У «•+... 

(М<1. а>0). 

11.57. Программа. Даны три целые матрицы размером 
9x4. Напечатать ту из них, где больше нулевых строк 
(если таких матриц несколько, напечатать их все). 

11.58. Программа. Даны натуральное число р и вещест¬ 
венные квадратные матрицы А, В и С 4-го порядка. По¬ 
лучить ( АВСу . 

11.59. Программа. Даны вещественные матрицы А, В аС 
размером 10x20. Вычислить величину 

МД+ЦДИ-ЦСЦ ■ 
н+б+сіі • 

где JD 1|= max I D itJ |+max | D ttJ |+...+max | D 10i/ ]. 

11.60. Программа. Даны две целые квадратные мат¬ 
рицы 10-го порядка. Определить, можно ли отражениями 
относительно главной и побоч¬ 
ной диагоналей преобразо¬ 
вать одну из них в другую. 

11.61. Программа. Даны 
вещественные числа а, b и 
г(а<Ь, е>0). С точностью 
е вычислить интеграл (см. 
упр. 5.34) 

Ьі Их) ч 

$ S h(x,y)dy\dx, 

а У Цх) I 

где h(x,y)=e-«y x ~ 1 , g(x)=l, 
f{x)= l+x*. 

11.62. Программа. С заданной точностью е>0 вычислить 
площадь заштрихованной фигуры, показанной на рис. 5. 

11.63. Программа. В точках 1, 2,..., k, где k —задан¬ 
ное целое число от 2 до 70, напечатать (по отдельности) 
графики следующих функций: 
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<p (n)— количество целых чисел от 1 до я, взаимно 
простых с числом и; 

т(я)—количество положительных делителей числа л; 

п(п )—количество простых чисел, не превосходящих я. 

11.64. Программа. Напечатать все цифры десятичной 
записи чисел 2 ?00 и П+2І+ЗІ+ .. . + 100!. ( Рекомендация ; 
представить «длинные» натуральные числа в виде масси¬ 
вов из цифр и реализовать нужные операции над ними.) 

11.65. Решить предыдущую задачу, но разбивая «длин¬ 
ные» числа не на отдельные цифры, а на группы цифр 
(например, по 5 соседних цифр). 

11.66. Программа. Дано я вещественных чисел (л= 100). 
Упорядочить их по неубыванию методом фон Нейманаі 
завести два массива А и В и записать исходные числа 
в А; упорядочить пары соседних чисел (Л 2 и Л 2 , А, и А 4 
и т. д.) и записать их в В; взять из В по две соседние 
упорядоченные пары и, слив их в упорядоченные четверки, 
снова записать в А; затем каждые две соседние четверки 
из В слить в упорядоченные восьмерки и перенести в Л; 
и т. д. 

11.67. Программа. Даны целое л от 2 до 20 и вещест¬ 
венное е>0. Найти с точностью е все корни л-го много¬ 
члена Чебышева Т п (х), определяемого формулами 

ад-1; ад=*; т k {x)=2xT *_i(x) — тъ-%{х) 

(Л=2, 3,...). 

( Замечание і многочлен T k (x) имеет k различных корней 
в интервале (—1,1); если *і<х 2 <. . .<**—корни много¬ 
члена T k (x), то многочлен Т к+1 (х) имеет по одному корню 
в каждом из интервалов (—1,л,), (-я+Ха), .... (**,!)•) 


12. РЕКУРСИЯ 

12 . 1 *. 

function fib(n:integer):integer; 
begin if n<—1 then fib:=l 

else fib:=fib(n—l)+fib(n—2) 

end; 

Вычислить fib( 2) и fib( 4). 

12.2*. Какие из следующих описаний функции /(я), 
которая должна вычислять факториал от л, правильны? 

а) function f(n:integer):integer; 

begin f:=n*f(n— 1) end; 

б) function f(n:integer):integer; 
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begin if n=0 then f:=l 

else f:=f(n+l)/(n+l) end; 
в) function f(n:integer):integer; 
begin if n=0 then f: = l 

else f:=n*(n—l)*f(n—2) end; 
r) function f(n:integer):integer; 

begin if n=0 then fj = l else f:=n*f(n—1) end 

12.3*. Описать рекурсивную функцию pow(x,n) от вещест¬ 
венного je(x=j£0) и целого п, которая вычисляет величину х п 
согласно формуле 

( 1 при я=0, 

l/jcl"! при я<0, 
х-х п ~ 1 при п> 0. 

12.4*. Рекурсивно описать функцию С(т,п), где 0^т<Гп, 
для вычисления биномиального коэффициента СЦ по сле¬ 
дующей формуле: 

С£=С"=1; С”=С?_ 1 +С“г 1 1 при 0<яі<л. 

12.5*. type имя=(Алла, ..., Юрий, нет); 

Предполагая уже описанными функции Отец(х) и Мать(х), 
значениями которых являются имена соответственно отца 
и матери человека по имени х или идентификатор нет, 
если отсутствуют сведения о соответствующем родителе, 
описать логическую функцию Потомок(а,Ь), проверяющую, 
является ли человек с именем b потомком (ребенком, вну¬ 
ком, правнуком и т. п.) человека с именем а. 

12.6. Решить предыдущую задачу в предположении, 
что имеются функция ЧислоДетей{х), указывающая число 
детей человека с именем х, и функция Ребенок(х,к), указы¬ 
вающая имя k-ro ребенка человека с именем х (k не должно 
превышать число детей человека х). 

12.7*. function f(n:integer):integer; 

begin if n>100 then f:=n—10 

else f:=f(f(n+ll)) 

end; 

Вычислить /(106), /(99) и /(85). Какие вообще значения 
принимает эта функция? 

12.8. Описать рекурсивную функцию root(f,a,b,eps), 
которая методом деления отрезка пополам находит с точ¬ 
ностью eps корень уравнения /(*)=0 на отрезке [а,Ь]. 
(Считать, что eps> 0, a<b, f(a)-f(b)<0 и /(^ — непрерыв¬ 
ная и монотонная функция на отрезке [а,Ь].) 



12.9*. const n—40; 

type вектор =array [1. .n] of real; 

Описать функцию min{x) для определения минимального 
элемента вектора х, введя вспомогательную рекурсивную 
функцию minl(k), находящую минимум среди последних 
элементов вектора х, начиная с k-ro. 

12.10. type строка=раске(1 array [1..100] of char; 
Описать рекурсивную логическую функцию cuMM(s,i,j), 
проверяющую, является ли симметричной часть строки s, 
начинающаяся і-м и кончающаяся /'-м ее элементами. 

12.11*. Во входном файле задана непустая последова¬ 
тельность положительных вещественных чисел, за которой 
следует отрицательное число. Описать рекурсивную функ¬ 
цию sum без параметров для нахождения суммы этих 
положительных чисел. 

12.12. Описать рекурсивную функцию digits без пара¬ 
метров, которая подсчитывает количество цифр в тексте, 
заданном во входном файле (за текстом следует точка). 

12.13. Программа. Напечатать в обратном порядке 
заданный во входном файле текст (за текстом следует точка). 

12.14. Программа. Дана последовательность ненулевых 
целых чисел, за которой следует 0. Напечатать сначала 
все отрицательные числа этой последовательности, а затем— 
все положительные (в любом порядке). 

12.15*. Программа. Во входном файле записана (без 
ошибок) формула следующего вида! 

<формула>:і=<цифра> | (<формула> <знак> <формула>) 
<знак>:і =+ 1— I# 

<цифра>:і=0 |1|2|3|4|5|6|7|8|9 
Ввести эту формулу и вычислить ее значение. (Например, 
б— *■ 5, ((2—4)*6) —*■ —12.) 

12.16. Программа. Во входном файле задан текст, за 
которым следует точка. Проверить, является ли этот текст 
правильной записью «формулы» (см. предыдущую задачу). 

12.17. Программа. Во входном файле записано без оши¬ 
бок логическое выражение следующего вида! 

Логическое выражение>п= true | false | 

<операция> (<операнды>) 

<операция>!і=шй | and | or 

<операнды>и=<операнд> | <операнд>, <операнды> 
<операнд>:і=<логическое выражение> 

(У операций and и or может быть любое число операндов, 
у not —только один.) 
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Ввести это выражение и вычислить его значение. (На¬ 
пример, and(or(false,not(false)), true,not(true)) —*• false.) 

12.18. Программа. Во входном файле задан текст, за 
которым следует точка. Проверить, удовлетворяет ли его 
структура следующему определению; 

<текст>:;=<элемент> |<элемент> <текст> 

<элемент>:» =-а | b | (<текст>) | «текст>] | {<текст>} 

12.19. Программа. Заданный вещественный массив из п 
различных элементов (л=100) упорядочить по возрастанию 
следующим методом быстрой сортировки ; выбрать какой- 
нибудь (например, средний) элемент массива и переставить 
элементы массива так, чтобы слева от выбранного элемента 
оказались только меньшие элементы, а справа—только 
большие (тем самым выбранный элемент окажется на своем 
окончательном месте), после чего рекурсивно применить 
этот же метод к левой и правой частям массива. 



12.20. («Ханойские башни»). Имеются три колышка А, 
В и С и п дисков разного размера, перенумерованных 
от 1 до п в порядке возрастания их размеров. Сначала 
все диски надеты на колышек А так, как показано на 
рис. 6, а. Требуется перенести все диски с колышка А на 
колышек С (рис. 6, в), соблюдая при этом следующие усло¬ 
вия: диски можно переносить только по одному, боль¬ 
ший диск нельзя ставить на меньший. 

Написать программу, которая печатает последователь¬ 
ность действий (в виде «перенести диск с q на г», где q 
и г —это А, В или С), решающую указанную задачу для п 
дисков, где п —заданное натуральное число. (Подсказках 
при правильном переносе п дисков с Л на С обязательно 
встретится конфигурация, показанная на рис. 6,6.) 

12.21. Программа. Имеется п населенных пунктов, пере¬ 
нумерованных от 1 до п (л=10). Некоторые пары пунктов 
соединены дорогами. Определить, можно ли попасть по 
этим дорогам из 1-го пункта в л-й. 
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Информация о дорогах задается в виде последователь¬ 
ности пар чисел і и / (£</), указывающих, что і-й и /-й 
пункты соединены дорогой; признак конца этой последо¬ 
вательности—пара нулей. 

12.22. Программа. Дано п различных натуральных чи¬ 
сел (п=5). Напечатать все перестановки этих чисел. 

12.23. Задача о 8 ферзях! на шахматной доске расста¬ 
вить 8 ферзей так, чтобы они не «били» друг друга. 

Написать программу, которая печатает: 

а) одну из таких расстановок; 

б) все 92 такие расстановки. 


13. КОМБИНИРОВАННЫЕ ТИПЫ. ОПЕРАТОР 

ПРИСОЕДИНЕНИЯ 

13.1. Описать комбинированный тип для представления 
следующего понятия! 

а) цена в рублях и копейках; 

б) * время в часах, минутах и секундах; 

в) дата (число, месяц, год); 

г) адрес (город, улица, дом, квартира); 

д) семинар (предмет, преподаватель, номер группы, 
день недели, часы занятия, аудитория); 

е) бланк требования на книгу (сведения о книге: шифр, 
автор, название; сведения о читателе: номер читательского 
билета, фамилия; дата заказа); 

ж) * экзаменационная ведомость (предмет, номер группы, 
дата экзамена, 25 строчек с полями: фамилия студента, 
номер его зачетной книжки, оценка за экзамен). 

13.2*. type масть=(пики,трефы,бубны,червы); 

достоинство=(шесть .семь, восемь, 
девять десять, 
валет,дама,король,туз); 
карта= record м:масть; дідостоинство end; 
Описать логическую функцию бьет{К\,К2,КМ), проверяю¬ 
щую, «бьет» ли карта К 1 карту К2, с учетом того, что 
масть КМ является козырной. 

13.3*. 

type CTpoKa=packed array 11.. 15] of char; 

BepiuHHa=record названиехтрока; 

высота: 1000. .9999 

end; 

список=аггау fl.,30] of вершина; 
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Описать процедуру СамаяВысокая(С), печатающую назва¬ 
ние самой высокой вершины из списка С. 

13.4. Ответить на следующие вопросы. 

а) Верно ли, что все поля записи должны быть раз¬ 
ных типов? 

б) Почему при описании записи ее поля могут пере¬ 
числяться в любом порядке? 

в) Верно ли, что названия полей записи могут совпа¬ 
дать с именами переменных, констант и других объектов 
программы, но не могут совпадать с названиями полей 
других записей? 

г) Почему в переменной-поле (т. е. конструкции r.f) 
имя поля (/) должно указываться явно и не может быть 
задано в виде выражения? 

13.5. Описать следующее понятие в виде массива или 
в виде записи, а если возможно, то в том и другом виде: 

а) обозначение поля шахматной доски (а5, h8 и т. п.); 

б) комплексное число; 

в) точка в 50-мерном пространстве. 

13.6. type точкаі— array [(x,y)J of real; 

точка2=гесог<1 x,y:real end; 
ѵаг р1:точка1; р2:точка2; d:real; 

а) Почему допустим данный раздел типов, хотя в нем 
одними и теми же именами (д: и у) обозначены разные 
объекты (индексы и поля)? 

б) * Переменной d присвоить расстояние между точками 
р\ и р2. 

в) Допустимы ли конструкции plfsucc(x)] и p2.succ(x)? 

13.7*. 

type строка= packed array [1..8J of char; 
адрес =record город, улицагстрока; 

дом, квартира :1 ..999 

end; 

ѵаг Адр1,Адр2:адрес; 

Используя оператор присоединения, присвоить переменной 
Адр\ значение, соответствующее адресу «Москва, ул. Ар¬ 
бат, д. 1, кв. 5». Кроме того, переменной Адр2 присвоить 
такое же значение, заменив в нем номер дома на 17. 
13.8*. 

type Kpyr=record радиус:геа1; 

центр: record x,y:real end 

end; 

ѵаг К:круг; 
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Требуется переменной К присвоить значение, соответству¬ 
ющее кругу радиуса 2.5 с центром в точке (0, 1.8). В каких 
из следующих операторов присоединения правильно ре¬ 
шается эта задача, а в каких нет и почему? 

а) with К do 

begin радиус:=2.5; х:=0; у:=1.8 end; 

б) with К do 

begin радиус:=2.5; центр.х:=0; 

центр.у: = 1.8 end; 

в) with К do 

begin радиус:=2.5; 
with центр do 
begin х:=0; у: = 1.8 end 

end; 

г) with К, центр do 

begin радиус:=2.5; х:=0; у: = 1.8 end; 

д) with центр, К do 

begin радиус:=2.5; х:=0; у:= 1.8 end 

13.9. Определить комбинированный тип для представ¬ 
ления анкеты школьника, включающей в себя его ФИО, 
возраст, номера школы и класса и оценки по каким-то 
пяти предметам. 

Описать некоторую переменную данного типа и при¬ 
своить ей значение, соответствующее следующей анкете: 
Петров Иван Ильич, 16 лет, 194-я школа, класс 96, оценки 
5, 3, 4, 5, 2. 

13.10*. type complex=record re,im:real end; 
point=record x,y:real end; 
var z,w:complex; p:point; re:real; 

Определить, какие значения будут иметь переменные г, w, 
р и те после выполнения следующих операторов: 

with z do begin re:=0; im:=l end; 

w:=z; re:=2; 

with z do re:=l; 

with z, w do im:=— im; 

with p do begin x:=re; y:=2 end 

13.11. Найти ошибки в следующей программе: 

program errors (input, output); 
type поле=(а,Ь); 

запись=гесогб a:integer; b:char end; 
var х,у:запись; c:char; 
function f (var 2 :запись):запись; 

var р:поле; 
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begin for p:=a to b do f.p:=succ(z.p) end; 
begin read(c); 

with x do begin a:=ord(c); b:=c end; 
y:=x; if x=y then ys=f(x); 
with у do writeln(a.x) 
end. 

13.12. type декарт=гесогб x, y:real end; 

поляр =record r, fiireal end; 

{r^O, — я<Н^л} 

Описать процедуры ДП{й, р ), преобразующую координаты 
точки на плоскости из декартовых d в полярные р, и 
ПД(р, d), выполняющую обратное преобразование. 

13.13. type поле=гесогб BepT:(a,b,c,d,e,f,g,h); 

гориз:1..8 

end; 

Описать логическую функцию ходферзя(п1, п2), проверя¬ 
ющую, может ли ферзь за один ход перейти с поля лі 
шахматной доски на поле л2. 

13.14. type BpeMH=record час:0..23; мин, сек:0..59 end; 
Описать: 

а) логическую функцию раньше (tl,t2) для проверки, 
предшествует ли время 1 1 времени 12 (в рамках суток); 

б) * процедуру следсек (/,/1), присваивающую пара¬ 
метру И время, на 1 секунду большее времени і (учесть 
смену суток); 

в) процедуру интервал (d,t2,tl), которая вычисляет 
время d , прошедшее от времени /1 до времени /2і d=t2 —/1 
(считать, что t2>t\). 

13.15. type имя=(Аня, Валя, Женя, Петя, Саша, Таня, 

Шура, Юра); 

данные= record пол:(муж, жен); 

рост: 140..200 end; 
группа= array [имя] of данные; 

Описать: 

а) функцию средрост (ГР), определяющую средний рост 
женщин из группы ГР\ 

б) функцию высокий (ГР) для определения имени самого 
высокого мужчины из группы ГР; 

в) логическую функцию одинрост(ГР), проверяющую, 
есть ли в группе ГР хотя бы два человека одного роста. 

13.16. type рац= record числ: integer; 

3HaM:l..maxint aid; 
массив=аггау [1..20] of рац; 
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Описать: 

а) * логическую функцию равно(а,Ь), сравнивающую 
два рациональных числа а и Ь; 

б) процедуру слож(с,а,Ь), которая складывает рацио¬ 
нальные числа а и Ь и присваивает их сумму рациональ¬ 
ному параметру с; 

в) процедуру сокр(г), приводящую рациональное число г 
к несократимому виду; 

г) процедуру тах(х,т), присваивающую параметру т 
наибольшее из рациональных чисел массива х. 

13.17. type complex=record re, im.-real end; 

coeff=record a,b,c:complex end; {аФЩ 

Описать процедуру value(p,x t y), которая вычисляет у — 
значение квадратного трехчлена ax* + bx-{-c с коэффи¬ 
циентами из р в комплексной точке х. 

13.18. type костьдомино= record лев, прав:0..6 end; 

ряд=аггау [1..28] of костьдомино; 

Описать логическую функцию пратльныйряд{г), которая 
проверяет, правильно ли выставлены кости домино в ряду г 
(равна ли правая цифра очередной кости левой цифре сле¬ 
дующей кости). 

13.19. type число=1..31; месяц=1..12; 

год=1..2000; 

дата= record ч:число; м:месяц; 

г:год end; 

деньнедели=(пн,вт,ср,чт,пт,сб,вс); 

Считая, что все даты даются по григорианскому кален¬ 
дарю («новому стилю»), описать: 

а) функцию послчисло((і), вычисляющую количество дней 
в том месяце, которому принадлежит дата d\ 

б) логическую функцию вернаядата(<1), проверяющую 
правильность даты d (т. е. чтобы не было 31 июня и т. п.); 

в) функцию числодней(сі), подсчитывающую, сколько 
дней прошло от 1 января 1-го года нашей эры до даты d\ 

г) функцию ДЩс 0 для определения дня недели, на 
который приходится дата d (учесть, что 1 января 1-го года 
нашей эры было понедельником). 

13.20. type строка=раскеб array [1..20] of char; 

житель =record 

фамилия, городщтрока; 
aflpec:record улица:строка; 
дом, 

квартира: 1..999 
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end 


end; 

список =array [1 ..15] of житель; 

Описать процедуру ИронияСудьбы(С), которая печатает 
фамилии двух (любых) жителей из списка С, живущих 
в разных городах по одинаковому адресу. 

13.21. type crpoKa=packed array [1..16] of char; 

дата =record число: 1. .31; 

месяц: 1.. 12; 
год:1900..1979 

end; 

анкета= record фамилия:строка; 

пол:(муж, жен); 
деньрожд:дата 

end; 

группа= array [1..25] of анкета; 

Описать: 

а) процедуру старишй(Гр, Фам), присваивающую строке 
Фам фамилию самого старшего мужчины из группы Гр 
(считать, что такой есть и он единственный); 

б) процедуру печ(Гр,Бук), печатающую все фамилии 
людей из группы Гр, начинающиеся с литеры Бук, и даты 
рождения этих людей. 

13.22. type слово== packed array [1..9] of char; 

номертелефона= 1000000. .9999999; 
знакомый= record фамилия: слово; 

номер : номертелефона 

end; 

страница= array [1..20] of знакомый; 
записнаякнижка= array ['A'./Z'] of 

страница; 

Считая, что на каждой странице записной книжки ука¬ 
заны фамилии, начинающиеся с одной и той же буквы — 
индекса этой страницы, описать логическую функцию: 

а) номер(ЗП,Ф,НТ), определяющую, есть ли в запис¬ 
ной книжке ЗП сведения о знакомом с фамилией Ф, и, 
если есть, присваивающую параметру НТ номер его те¬ 
лефона; 

б) фамилия(ЗП,НТ,Ф), определяющую, есть ли 
в записной книжке ЗП сведения о знакомом, имеющем 
телефон с номером НТ, и, если есть, присваивающую 
параметру Ф фамилию этого знакомого. 
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13.23. const n=300; 

type запись=гесог(і ключ: integer; 

тело:аггау [1..99] of 'a'./z' 

end; 

таблица= array [l..n] of запись; 

Считая, что в таблице записи имеют различные ключи, 
описать: 

а) процедуру упор(Т), упорядочивающую записи таб¬ 
лицы Т по возрастанию их ключей; 

б) логическую функцию поиск(Т,К,Н), определяющую, 
есть ли в таблице Т (все записи которой уже упорядочены 
по возрастанию их ключей) запись с ключом К, и, если 
есть, присваивающую ее номер параметру Н. 

13.24. Промоделировать работу машины Тьюринга (см., 
например, [9]): 

— выбрать представление для ленты, автомата и про¬ 
граммы машины, считая, что лента имеет конечный размер, 
который так же, как и алфавит машины и набор состоя¬ 
ний автомата, известен заранее; 

— написать процедуру, которая начиная с исходной 
конфигурации (автомат находится в определенном состоя¬ 
нии и «видит» самый левый символ входного слова) моде¬ 
лирует работу машины согласно заданной программе. (Если 
машина не останавливается через определенное число шагов, 
процедура должна прекратить вычисления.) 

13.25. Программа. Даны комплексное число г (пара 
вещественных чисел) и вещественное число е > 0. Вычис¬ 
лить с точностью е значение следующей комплексной 
функции: 

а) e*=l+z/ll-fz*/2!-|-. . .+z7ft!-b. ..; 

б) shz=z+z*/3H-zV5!+. . .+z ,B+1 /(2n+l)!+. ..; 

в) chz*=l-fzV2!+z«/4!-b..+z*"/(2/i) +...; 

г) sinz=z—z*/31+z»/5l—...+(—l)»z* B+l /(2rt+l)l...; 

д) cosz=l— z*/2!+z 4 /4!—...+(—l)»z*»/(2n)!+.. 

е) In (1 +z)=z—z*/2+z*/3—... +(—1 ) B “* z n /n+ ... 

• • - (1 2 1 < i); 

ж) arctg z=z—z*/3-f zty5—...+ (—l) B z ?B+1 /(2n+l)4- 

...(|z|<l). 

13.26. Программа. Найти корни квадратного трехчлена 
с заданными комплексными коэффициентами. 

13.27. Во входном файле содержится информация об 
итогах зимней сессии на 1 курсе. Сведения о каждом 
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студенте-первокурснике (всего их 400) заданы в виде сле¬ 
дующего текста: 

<фамилия>, <номер группы), 

<оценка1>, <оценка2>, <оценкаЗ> 
причем в фамилии —не более 12 букв, номер группы — 
целое от 101 до 116, каждая оценка—это 2, 3, 4 или 5, 
причем первая оценка—за экзамен по матанализу, вто¬ 
рая—по алгебре, третья—по программированию. Сведения 
о студентах отделены друг от друга точкой с запятой. 

Написать программу, которая вводит эту информацию 
и печатает следующие данные: 

а) фамилии студентов, имеющих задолженность хотя бы 
по одному предмету; 

б) «качество» успеваемости, т. е. процент студентов, 
сдавших все экзамены на 5 и 4; 

в) название предмета, который был сдан лучше всего; 

г) номера групп в порядке убывания средней успевае¬ 
мости их студентов. 

13.28. Во входном файле записана следующая инфор¬ 
мация о каждом из 2000 студентов некоторого вуза: 
<фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс> 
причем в .фамилии, имени и отчестве—не более 12 букв, 
пол указывается буквами М и Ж, возраст—целое от 16 
до 35, курс—целое от 1 до 5. Сведения о студентах отде¬ 
лены друг от друга точкой с запятой. 

Написать программу, которая вводит эту информацию 
и печатает следующие данные: 

а) номер курса, на котором наибольший процент мужчин; 

б) самые распространенные мужское и женское имена; 

в) фамилии (в алфавитном порядке) и инициалы всех 
студенток, возраст и отчества которых являются одновре¬ 
менно самыми распространенными. 

14. множественные типы 

14.1. type bits=set of 0..1; 

ѵаг x:bits; y:set of (a,b,c); 
z:set of V.. V; 

Ответить на следующие вопросы: 

а) Каков базовый тип каждого из указанных множест¬ 
венных типов? 

б) * Сколько и какие значения может принимать каж¬ 
дая из переменных х, у и г? 
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14.2*. Если в базовом типе п различных значений, то 
сколько различных значений в построенном на его основе 
множественном типе? 

14.3*. type деньнедели=(пн,вт,ср,чт,пт,сб,вс); 

Описать множественный тип, включающий в себя множе¬ 
ства из: 

а) названий любых дней недели; 

б) названий рабочих дней недели. 

14.4*. Какие из следующих описаний неверны и почему? 

type T04KH=set of real; 

байт== packed array [1..8] of 0..1; 

flaHHHe=set of байт; 

месяц=(янв, фев, мар, апр, май, июн, июл, авг, 
сен, окт, ноя, дек); 

Ml = set of месяц; 

M2=set of июн..авг; 

M3=set of дек..фев; 

M4=set of (июн, июл, авг)$ 




14.5*. Какие из следующих конструкций являются 
множествами (в смысле языка Паскаль), а какие нет и по¬ 
чему? 

а) [9,6,3,01; б) [2. .3,5,71; 

в) [1..15,4..181; г) VI; 

д) [0..01; е) [true..falsel; 

ж) [2, sqrt(9)]; з) ['= , '>= . 
и) [13, [5]]; к) [odd(7), 0<2] 

14.6*. var p:set of 0..9; i, j:integer; 

Если t=3 и j—5, то какое значение получит переменная р 
при выполнении следующего оператора присваивания: 

а) р:=[і+3, j div 2, j. .sqr(i)—3]; 

б) p:=[2*i..j]; 

в) p:=[i, j, 2*i, 2*j] 

14.7. var s:set of char; c, d:char; 

Переменной s присвоить: 

а) пустое множество; 

б) множество из строчных гласных латинских букв 
(а, е, і, о, и); 

в) множество из всех цифр; 

г) множество литер, которые больше с, но меньше d 
(c<d). 

14.8*. Вычислить значения отношении: 

- - 'Ѵ,'Ь']=І'Ь',Ѵ]; 

„ /,'Ь'1=[Ѵ..'Ь'1; 
е) [3,6..8]<=[2..7,9]; 
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ж) []<=['0'~' 9 ']; 3 ) V in [ * •• * 3; 

и) trunc(3.9) in [1,3,51; к) odd(4) in [ ]; 
л) [2] <[1 .-3]; м) 66= [66] 

14.9. Эквивалентны ли выражения! 

а) р in [0,5,19] и (р=0)ог(р=5)ог(р=19)? 

б) р in [20..50] и (p>=2Q)and(p<=50)? 

14.10*. type строка= packed array [1..100] of char; 
Описать функцию C4em(s), подсчитывающую общее коли¬ 
чество цифр и знаков '-Н 1 , '—' и V, входящих в строку s. 

14.11. Программа. Дано 100 целых чисел от 1 до 50. 
Определить, сколько среди них чисел Фибоначчи и сколько 
чисел, первая значащая цифра в десятичной записи кото¬ 
рых—1 или 2. 

14.12. type месяц=1..12; 

Описать функцию числодней(т), определяющую количество 
дней в месяце т (невисокосного года). 

14.13*. type M=setiof 0..99; 

Описать функцию card(A), подсчитывающую количество 
элементов в множестве А типа М. (Например, card([ 5, 8, 
23])=3.) 

14.14*. type letters=set of V..V; 

Описать процедуру print(A), печатающую в алфавитном 
порядке все элементы множества А, имеющего тип letters. 
14.15. const n= 10; 

type номер=1..п; 

матрица= array [номер, номер] of real; 
HOM=set of номер; 

Описать функцию sum(A, si, s2), вычисляющую сумму тех 
элементов матрицы А, номера строк и столбцов которых 
принадлежат соответственно непустым множествам si и s2 
типа ном. 

14.16*. type деньнедели=(пн,вт,ср,чт,пт,сб,вс); 
рабочийдень=пн. .пт; 
ѵаг \ѵб:деньнедели; trboolean; 

Требуется переменной t присвоить значение true, если 
wd —рабочий день, и значение false иначе. Какими из 
следующих операторов правильно решается эта задача? 
a) t:=wd in рабочийдень; б) [:=\мі=рабочийдень; 

в) t:=wd in [рабочийдень]; г) t:=wd in [пн..пт]; 
д) t!=[wd]<=[nH..nT]; е) t:=[wd]=[nH..nT] 

14.17*. Вычислить значения выражений: 

а) [1,3,5]+[2,4]; б) [1,3,5]*[2,4]; в) [1,3,5]—[2,4]; 
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14.18. Вычислить значения выражений: 
. 1 т [ 5|- ,5М6]; 

•’MV]) 


14.19. Упростить (А и В— множества): 

а)* А*В—А; б)* А—{А— В); 

в) (А+В)—(А— В)—(В— А)-, г) {А—В)+(В—А)+А*В. 

14.20. Не используя дополнительные переменные, по¬ 
менять местами значения переменных-множеств Л и В. 

14.21*. ѵаг x,y,z:set of 8..22; 


Переменной х присвоить множество всех целых чисел от 
8 до 22, переменной у —множество всех простых чисел из 
этого диапазона, а переменной z — множество всех состав¬ 
ных чисел из этого же диапазона. 

14.22. Программа. Дан текст из цифр и строчных ла¬ 
тинских букв, за которым следует точка. Определить, каких 
букв—гласных (а, е, і, о, и) или согласных—больше 
в этом тексте. 

14.23*. ѵаг A,B:set of char; xrchar; 

Переменной В присвоить множество, полученное из Лі 

а) добавлением элемента х ; 

б) удалением элемента х. 

14.24. type HaTyp=l..maxint; 

Описать: 

а) * функцию digits(n), подсчитывающую количество 
различных (значащих) цифр в десятичной записи натураль¬ 
ного числа п; 

б) процедуру print(n), печатающую в возрастающем 
порядке все цифры, не входящие в десятичную запись 
натурального числа п. 

14.25. Программа. Дан текст из строчных латинских 
букв, за которым следует точка. Напечатать: 

а) * первые вхождения букв в текст, сохраняя их ис¬ 
ходный взаимный порядок; 

б) все буквы, входящие в текст, ре менее двух раз; 

в) все буквы, входящие в текст по одному разу. 

14.26. Программа. Дан текст, за которым следует точка. 
В алфавитном порядке напечатать (по разу) все строчные 
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русские гласные буквы (а, е, и, о, у , ы, э, ю, я), входя¬ 
щие в этот текст. 

14.27. Программа. В возрастающем порядке напечатать 
все целые числа из диапазона 1.. 10000, представимые 
в виде п*+т 2 , где п, т>0. 

14.28. Программа. В порядке убывания напечатать все 
целые числа из диапазона 1. .4900, которые представимы 
в виде n a +2ft*, но не представимы в виде 7І/+/-І-3 (я, k, 

I. І> 0 ). 

14.29. Программа. Дано целое я от 2 до 1000. Исполь¬ 
зуя метод «решета Эратосфена», напечатать в убывающем 
порядке все простые числа из диапазона я..2я. 

(Суть этого метода: выписываются все целые числа, 
большие 1; выбирается первое из них (это 2, простое число) 
и вычеркиваются все кратные ему числа, кроме него самого; 
затем берется следующее из невычеркнутых чисел (это 3, 
также простое число) и вычеркиваются все кратные ему, 
опять же кроме негом самого; и так для каждого не вы¬ 
черкнутого ранее числа. В конце концов останутся только 
простые числа начиная с 2.) 

14.30. type продукт=(хлеб, масло, молоко, мясо, 

рыба, соль, сыр, колбаса, 
сахар, чай, кофе); 
ассортимент= set of продукт; 
магазины= array [1..20] of ассортимент; 

Описать процедуру На.шчие{Маг, А, В, С), которая по 
информации из массива Маг типа магазины (Маг[і \— это 
множество продуктов, имеющихся в і-м магазине) присваи¬ 
вает параметрам А, В и С типа ассортимент следующие 
значения! 

Л—множество продуктов, которые есть во всех мага¬ 
зинах; 

В —множество продуктов, каждый из которых есть 
тя бы в одном магазине; 

хо С —множество продуктов, которых нет ни в одном ма¬ 
газине. 

14.31. type имя=(Вася, Володя, Ира, Лида, Марина, 

Миша, Наташа, Олег, Оля, Света, 
Юля); 

гости= set of имя; 
группа=аггау [имя] of гости; 

Описать логическую функцию Везде(ГР), определяющую, 
есть в группе ГР хотя бы один человек, побывавший 



в гостях у всех остальных из группы (Г/^дг]—множество 
людей, бывших в гостях у человека с именем дс; /'/’[х]). 

14.32. type ropofl=(a,b,c,d,e,f,g,h); 

города= set of город; 
рейсы= array [город] of города; 

Описать процедуру МожноПопасть(Р,Н,К), которая по 
рейсам Р (/>[*]—множество городов, в которые можно за 
один рейс доехать автобусом из города х) определяет К — 
множество городов, в которые можно попасть автобусом 
(за один рейс или через другие города) из города Я. 

14.33. Описать логическую функцию path(G,N,K,D), 
которая определяет, есть ли в ориентированном графе G 
путь из вершины N в вершину К, и, если есть, присваи¬ 
вает параметру D длину (число дуг) кратчайшего пути 
из N в К. 

Использовать следующее представление графа: 

type вершина=(Ы ,Ь2,ЬЗ,Ь4,Ь5,ІЬѲ,Ь7,Ь8); 
coceflH=set of вершина; 
граф= array [вершина] of соседи; 

множество вершин, в которые ведут дуги из вер¬ 
шины х.) 

14.34. Найти все ошибки в следующем фрагменте про¬ 
граммы: 

type M=set of char; 

function f(a,b:M; x:char):M; 
begin if a*b=0 then a:=[x] else 
if a<b then a:=b+x else 
if ord(x) in a—b 

then a:=a—[x..*<=']; 

f:=a+b 

end; 

14.35. Программа. Дана непустая последовательность 
слов из строчных русских букв; между соседними словами — 
запятая, за последним словом—точка. Напечатать в алфа¬ 
витном порядке: 

а) все гласные буквы, которые входят'в каждое слово; 

б) все согласные буквы, которые не входят ни в одно 
слово; 

в) все звонкие согласные буквы, которые входят хотя 
бы в одно слово; 

г) все глухие согласные буквы, которые не входят 
хотя бы в одно слово; 
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д) все согласные буквы, которые входят только в одно 
слово; 

е) все глухие согласные буквы, которые не входят 
только в одно слово; 

ж) все звонкие согласные буквы, которые входят более 
чем в одно слово; 

з) все гласные буквы, которые не входят более чем 
в одно слово; 

и) все звонкие согласные буквы, которые входят в каж¬ 
дое нечетное слово и не входят ни в одно четное слово; 

к) все глухие согласные буквы, которые входят в каж¬ 
дое нечетное слово и не входят хотя бы в одно четное слово. 

{Примечание: гласные буквы— а, е, и, о, у, ы, э, ю, я 
{ё обычно не входит в литерный тип); согласные—все 
остальные буквы, кроме й, ь, ъ\ звонкие согласные—б, в, 
г, д, ж, з, л, м, н, р\ глухие согласные— к, п, с, т, ф, 
X, ц, ч, ш, щ.) 

14.36. Программа^^ан некоторый текст, за которым 
следует точка (в сам текст точка не входит). Определить, 
является ли этот текст правильной записью «формулы»: 

<формула>::=<терм> | (<формула> <знак> <формула>) 
<знак>::= +1— I# 

<терм>::=<имя> [ <целое> 

<имя>: := <буква> | <имя> <буква> | <имя> <цифра> 
<целое>::=<цифра> | <целое> <цифра> 

<буква>: :== а |б|в|г|д|е]ж 
<цифра>-:=0 11|2|3|4|5|6|7|8|9 

14.37. Программа. Вычислить определитель заданной 
квадратной матрицы А п- го порядка (п=15), используя 
формулу разложения по первой строке: 

det ( А) = 2 (—1 )‘ +1 a lk • det (A k ), 

где A k — матрица, полученная из А удалением 1-й строки 
и k -то столбца. {Рекомендация: определить рекурсивную 
функцию от параметров I и s, которая по указанной фор¬ 
муле вычисляет определитель матрицы, полученной из А 
удалением первых I строк и всех столбцов, номера кото¬ 
рых принадлежат множеству s.) 

15. ФАЙЛОВЫЕ ТИПЫ 

,и 

15.1. Ответить на следующие вопросы, 
а) Верно ли, что элементы файла должны быть одного 
типа и что файл отличается от массива только тем, что 
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размер (количество элементов) файла произволен, а размер 
массива фиксирован? 

б) Можно ли, считав из файла пятый элемент, затем 
сразу же считать второй элемент? А какой можно? 

в) Верно ли, что, считав из файла пятый элемент, 
затем уже никогда нельзя считать его второй элемент? 

г) В какое место файла можно добавлять новые эле¬ 
менты: в начало, в середину, в конец, куда угодно, ни¬ 
куда? 

д) Если не переписывать файл заново, то значения 
каких его элементов можно менять: только первого, только 
последнего, каких угодно, никаких? А какие элементы 
можно удалять из файла (при том же условии)? 

е) Верно ли, что в одно и то же время нельзя считы¬ 
вать из файла и записывать в него? Верно ли, что, начав 
считывать из файла, затем уже никогда нельзя записы¬ 
вать в него? А наоборот? 

ж) Можно ли сравнивать файлы или присваивать один 
файл другому? 

15.2*. var f:file of integer; x,y:integer; 

Пусть файл f содержит два элемента—3 и 7. Определить, 
какое значение будет иметь переменная у после выпол¬ 
нения следующих операторов: 

а) reset(f); read(f,y); 

if not eof(f) then read(f,y); 
if not eof(f) then read(f,y); 

б) reset(f); y:=0; 
while not eof(f) do 

begin read(f,x); 

y:=y + x end; 

в) reset(f); у: =1; 

repeat read(f,x); y:=y*x until eof(f) 

15.3. type слово = file of char; 

Найти ошибки в приведенном ниже описании функции 
длина(ѵѵ), которая должна определять количество эле- 
нентов в произвольном слове ш: 

function длина (ш:слово): integer; 
var k:integer; c:char; 

begin reset(w); k:=0; 

repeat read(w, c); k:=k + l until eof(w); 
ддина:=к 


end 



15.4*. type серия *=* file of real; 

Описать функцию ompuu,(s), подсчитывающую сумму отри¬ 
цательных элементов в серии s. 

15.5. 

type цена = гесогс1 py6:0..maxint; коп;0..99 end; 
прейскурант = file of цена; 

Описать процедуру тіп(П, Ц), присваивающую параметру 
Ц наименьшую цену из непустого прейскуранта П. 

15.6*. type ряд = file of 0..999; 

Описать логическую функцию упор(г), проверяющую, упо¬ 
рядочены ли по возрастанию элементы непустого ряда г. 

15.7*. type текст = П1е of char; 

Описать логическую функцию eq(tl,t2), проверяющую 
тексты t\ и і2 на равенство. 

15.8. 

type время = record час:0..23; мин, сек:0..59 end; 

ФВ = file of время; 

Описать логическую функцию eq(f, g), проверяющую на 
равенство файлы fug типа ФВ. 

15.9. type слово = file of char; 

Описать логическую функцию tess(o>l , w2), проверяющую, 
предшествует ли лексикографически слово ші слову w2. 

15.10. type FR = file of real; 

Описать функцию прёдпосл([), значением которой являет¬ 
ся предпоследний элемент файла f, имеющего тип FR и 
содержащего не менее двух элементов. 

15.11*. var f:file of integer; i:integer; 

Определить содержимое файла f после выполнения сле¬ 
дующих операторов: 

в) rewrite(f); 

if eof(f) then write(f,l) else write(f,2); 
if eof(f) then write(f,3) else write(f,4); 

6) rewrite(f); 

for ii=3 downto 1 do write(f, sqr(i)) 

15.12*. type строка = packed array [1 ...100] of char; 
текст = file of char; 

Описать процедуру цифры($, t), которая записывает в текст 
t все цифры из строки s. 

15.13. type ряд = file of l..maxint; 
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Описать процедуру fib(f,n), записывающую в ряд f все 
числа Фибоначчи (1, 1, 2, 3, 5, ...), не превосходящие 
целого положительного числа п. 

15.14*. type FB = file of boolean; 

Описать процедуру npuce(f,g) от двух файлов типа FB, 
которая файлу f присваивает содержимое файла g. 

15.15. type letters = file of V..V; 

Описать процедуру append(f,g,h) от трех файлов типа 
letters, которая записывает в файл f сначала все элемен¬ 
ты файла g, а затем—все элементы файла Л. 

15.16. type дата = гесогсі месяц: (янв,фев,мар,апр, 

май,июн,июл,авг,сен, 
окт,ноя,дек); 
число: 1..31 

end; 

ФД=Ше of дата; 

Описать процедуру 3an(d,s,w) от трех файлов типа ФД, 
которая из файла d переписывает в файл s все летние 
даты, а в файл до—все зимние даты. 

15.17*. type reals = file of real; 

Описать функцию less(f) от непустого файла f типа reals, 
которая подсчитывает количество элементов файла /, 
меньших среднего арифметического всех элементов этого 
файла. 

15.18. 

type человек = record 

HMH:packed array [1 ..9] of char; 
возраст: 1..99 
end; 

группа = file of человек; 

Описать процедуру СамыеМолодые(ГР), печатающую имена 
всех людей из непустой группы ГР, имеющих наимень¬ 
ший возраст. 

15.19. Программа. Дана непустая последовательность 
слов, содержащих от 1 до 8 букв; между соседними сло¬ 
вами—запятая, за последним словом—точка. Напечатать 
все слова, отличные от последнего слова. 

15.20. Программа. Дана непустая последовательность 
слов, содержащих от 1 до 8 букв; между соседними сло¬ 
вами—запятая, за последним словом—точка. Напечатать 
все слова наименьшей длины. 
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16.21. type текст = file of char; 

Описать процедуру; 

а) * addl(t,c), добавляющую литеру с в начало 
текста і; 

б) addlast(t,c), добавляющую литеру с в конец 
текста t\ 

в) doublet), удваивающую в тексте t каждую цифру; 

г) replace(t,c), заменяющую последнюю литеру непу¬ 
стого текста t на литеру с; 

д) next(t), заменяющую в тексте t каждую цифру на 
следующую по величине цифру ('9' заменять на 'О'); 

е) delete{t), удаляющую из текста t все литеры 
и '—'; 

ж) del(t), удаляющую из текста t предпоследний эле¬ 
мент, если такой есть; 

з) firsis(t), оставляющую в тексте і только первые 
вхождения каждой литеры. 

15.22*. var f:file of integer; x:integer; 

Пусть файл / содержит элементы 1 и 2. Какое значение 
будет иметь переменная х после выполнения следующих 
операторов? 

а) reset(f); if ff = 1 then get(f); x:=ff; 

б) reset(f); x:=0; 

if not eof(f) then begin get(f); 

x:=x-fff end; 

if not eof(f) then begin x:=x -f- f|; get(f) end; 
if not eof(f) then x:—x + ff; 

в) reset(f); get(f); get(f); xs=ff; 

r) reset(f); read(f,x); if ff> 1 then read(f,x) 

15.23*. var t:file of char; c:char; 

Каким будет содержимое файла t после выполнения сле¬ 
дующих операторов? 

а) rewrite(t); 

if eof(t) then tf:=V else tf := 'b'; put(t); 

б) rewrite(t); put(t); tf !='*'; 

в) rewrite(t); 

for c r= 'Г to '3' do 
begin t|:=c; put(t) end; 
r) rewrite(t); tf:='l'; 

for c:='3' downto 'V do 
begin put(t); tf!=c end 

15.24. Описать тип (любой из возможных) переменной 
х так, чтобы выражение xf[5].y~l-[5] было правильным. 
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15.25*. При условии, что известен тип (Ф) файлов f 
и g, но не известен тип их элементов, описать процедуру 
npuce(f,g), присваивающую файлу f содержимое файла g. 
15.26*. type FR=file of real; 

Описать логическую функцию mid(f,m), которая опреде¬ 
ляет, имеет ли файл f типа FR нечетную длину, и, если 
имеет, присваивает параметру т средний элемент этого 
файла. 

15.27. type FR=file of real; 

Описать функцию incr(f) определяющую количество эле¬ 
ментов в наиболее длинной возрастающей последователь¬ 
ности файла f. 

15.28. type FI = file of integer; 

Пусть в каждом из файлов fag элементы упорядочены 
по неубыванию. Требуется слить эти файлы в один файл Л, 
также упорядоченный по неубыванию. 

Решение этой задачи описать в виде процедуры 
merge(f,g,h) от параметров типа FI. 

15.29. type файл =file of char; 

Описать логическую функцию relation(f,v), проверяющую, 
является ли содержимое файла f правильной записью 
«отношения» (см. ниже), и, если является, присваиваю¬ 
щую логическому параметру ѵ значение этого отношения. 
<отношение>::=<число> <знак отношения> <число> 
<знак отношения):: = < | = | > | <= | <>| >=* 
<число>:: — <цифра> | <цифры> 

<цифры> ::= <неноль> <цифра> | <цифры> <цифра> 
<неноль>:: = 11213141516 (71819 
<цифра>::=0 1 <неноль> 

15.30. Считая t текстовым файлом (файлом типа text), 
ответить на следующие вопросы: 

а) Эквивалентны ли типы text и file of char? 

б) Кроме текстовых файлов, файлы каких еще типов 
могут делиться на строки? Обязательно ли все строки 
файла должны быть одинаковой длины? Допустимы ли 
пустые строки? 

в) Если значение eoln(t) равно true, то чему равно 
значение tf? 

г) Если при записи в t надо закончить строку, то 
как это сделать? Какие действия влечет выполнение опе¬ 
ратора writeln(output)? 

д) Верно ли, что из текстового файла можно считы- 



ватъ только по одной литере? А записывать? Если 
к — целая переменная, то допустимы ли операторы read(t,k) 
и write(t,k)? 

е) Какого типа файлы input и output? Почему они не 
описываются в программах? Почему в программах не 
пишут reset(input) и rewrite(output)? А что будет, если 
написать в программе эти операторы? Допустимы ли опе¬ 
раторы write(input,5) и read(output.x), где х—веществен¬ 
ная переменная? 

ж) Эквивалентны ли обращения read(input,x) и read(x), 
eof(input) и eof, get(input) и get? 

15.31*. Описать процедуру trtangle(t), формирующую 
текстовый файл / из 9 строк, в первой из которых — 
одна литера 'Г, во второй—две литеры '2', ..., в девя¬ 
той—девять литер '9'. 

15.32. Описать процедуру line40(t), которая считывает 
из входного файла литеры до первой точки и записывает 
их (без точки) в текстовый файл і, формируя в нем строки 
по 40 литер (в последней строке литер может быть и 
меньше). 

15.33. Описать функцию, которая: 

а) * подсчитывает количество пустых строк в текстовом 
файле t\ 

б) находит максимальную длину строк текстового 
файла t. 

15.34. Описать процедуру printlines(t), печатающую 
построчно содержимое текстового файла t. 

15.35. Пусть текстовый файл t разбит на непустые 
строки. Описать функцию count(t) для подсчета числа 
строк, которые: 

а) * начинаются с буквы d; 

б) оканчиваются буквой z; 

в) начинаются и оканчиваются одной и той же литерой; 

г) состоят из. одинаковых литер. 

15.36*. Описать процедуру npuce(t\, t2), переписываю¬ 
щую содержимое текстового файла t2 в текстовый файл t\ 
(с сохранением деления на строки). 

15.37. Описать процедуру npuce(t\, tS), переписываю¬ 
щую в текстовый файл /1 содержимое текстового файла /2, 
но без пустых строк. 

15.38. Считая, что непустой текстовый файл / разбит 
на строки, длина каждой из которых не превосходит 80, 
описать процедуру npeo6p(f, /80), которая, дополняя корот¬ 
кие строки файла / пробелами справа, формирует тексто¬ 
вый файл /80, все строки в котором имеют длину 80, 



15.39*. 

type слово = packed array [1 ..201 of char; 
список = array [1..100] of слово; 

Описать процедуру зап(1, (), записывающую слова списка 
I как строки в текстовый файл t. 

15.40*. В текстовом файле t записана непустая по¬ 
следовательность вещественных чисел, разделенных про¬ 
белами. Описать функцию max(t) для нахождения наи¬ 
большего из этих чисел. 

15.41. В текстовом файле /1 записана последователь¬ 
ность целых чисел, разделенных пробелами. Описать про¬ 
цедуру positive(tl ,І2), записывающую в текстовый файл /2 
все положительные числа из И. 

15.42*. type дата = record число:1..31; 

месяц: 1.. 12; 
год: 1900.. 1999 

end; 

ѵаг б:дата; 


Напечатать дату d в следующем виде: 25.10.1917, 22.6.1941, 
9.5.1945 и т. п. 

15.43. Описать процедуру lines(t), которая построчно 
печатает содержимое непустого текстового файла t, встав¬ 
ляя в начало каждой печатаемой строки ее порядковый 
номер (он должен занимать 4 позиции) и пробел. 

15.44. Программа. Напечатать таблицу значений функ¬ 
ций sin* и tg* на отрезке [0,3] с шагом 0.1. Значения х 
печатать с одной цифрой в дробной части, значения си¬ 
нуса—с пятью, а значения тангенса—в экспоненциаль¬ 
ной форме. 

15.45. Программа. Напечатать первые 10 строк «тре¬ 
угольника Паскаля» в следующем виде: 


а) 1 

1 1 
1 2 1 
13 3 1 

1 4 6 4 1 


1 9 ... 126 126 ... 9 1 


19 ... 91 


(В этом «треугольнике» крайние числа равны 1, а каждое 
внутреннее—сумме двух чисел над ним.) 

15.46. Программа. Напечатать картинку, изображаю¬ 
щую умножение «столбиком» двух заданных натуральных 
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чисел. Возможный пример: 

39624 

X 

8503 
. 118872 

+ 198520 
316992 
336922872 

15.47*. Имеется внешний текстовый файл BOOK. 
Написать программу, которая, игнорируя исходное деле¬ 
ние этого файла на строки, переформатирует его, разби¬ 
вая на строки так, чтобы каждая строка оканчивалась 
точкой либо содержала ровно 60 литер, если среди них 
нет точки. 

15.48. Программа. Имеется внешний текстовый файл Т. 
Напечатать первую из самых коротких его строк. 

15.49. Имеется внешний файл КУРСІ типа курс , со¬ 
держащий сведения о студентах первого курса: 

type строка = packed array [1..12] of char; 

экзамен = (анализ,алгебра,программирование); 
студент = record <M40:record фам,имя,отч: 

строка end; 
оденки:агтау [экзамен] of 2. .5; 
группа:101..П6 

end; 

курс = file of студент; 

Написать программу, которая оставляет в файле КУРС\ 
сведения только о тех студентах, которые успешно сдали 
все экзамены, и выводит на печать сведения о студентах, 
имеющих хотя бы одну задолженность: печатает их фами¬ 
лии и инициалы, номера их групп и количество несдан- 
ных экзаменов. 

15.50. Программа. Имеется внешний файл А из целых 
чисел. Используя еще три внешних файла В, С и D 
в качестве рабочих, упорядочить файл А по неубыванию 
следующим методом (называемым внешней сортировкой 
сбалансированным слиянием). 

Назовем «отрезком» как можно более длинный упоря¬ 
доченный по неубыванию участок файла (на рис. 7, а 
показан пример файла А, отрезки которого разделены 
вертикальными линиями). На начальном этапе сортировки 
определяются отрезки файла А и они попеременно пере¬ 
носятся в файлы С и D (рис. 7, б). На следующем этапе 
пары і-х отрезков файлов С и D (і=1, 2, ...) сливаются 
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в более длинные отрезки и попеременно переносятся 
в файлы А и В (рис. 7, в). Затем сливаются пары отрез¬ 
ков файлов А и В и переносятся в файлы С и D (рис. 7, г) 



в а 

Рис. 7 


и т. д. (Учесть, что в конце концов единая упорядочен¬ 
ная последовательность чисел должна оказаться в фай¬ 
ле А.) 

Ів. ССЫЛОЧНЫЕ типы, списки 

16.1. type ref = finteger; 
var p,q:ref; 

Пусть переменные p и q имеют значения, показанные на 
рис. 8. Ответить на следующие вопросы. 

а) Что является значением переменной р: ссылка на 
объект (переменную) целого типа или сам этот объект? 

' сэ 'т ,а Чп 

Рис. 8 

Что обозначает переменная р\: ссылку на объект целого 
типа, сам этот объект или целое 5? Каковы типы пере¬ 
менных р и pf? 

б) * Что будет выдано на печать в результате выпол¬ 
нения следующих операторов? 

pt:-qt; 

if p = q then p:=nil else if pf = qf then q:=p; 

if p = q then qf:=4; 

writeln(pt) 
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16.2*. type П=з record aiboolean; b.otfreal end; 
var nfD; 

Пусть переменная г имеет значение, показанное на рис. 9. 
Нарисовать структуру значения переменной г пооле вы¬ 
полнения следующих операторові 
If rt.b<>nil then rt.cj=*rf.b; 
rt.bf:=rt.ct—1.4; rt.ai=rf.b = rf.o 

ct b c 

r \ ' ^ * j — false \ I I nil I 



Риа. 9 

16.3*. var p,q if integer; rifchar; 

Какие из следующих операторов неправильные и почему? 

a) p;=q; б) q:=r, в) pi—nil; 
г) r:=nil; д) qi=pf; е) р|і=пІІ; 
ж) rf!=pt; з) qfi=ord(rt); 

и) if rOnii then ф= nilf; 

к) if q>nil then qfi=pt; 

л) if q=»p then write(q); 
m) if q<>r then read(rf) 

16.4. Имеется программа 
program dynamic (output); 

var xifboolean; y:booIean; 
begin {A} new(x); {B} xf:=true; yi=not xf; 

{C} dispose(x); (D) writeln(y) 

end. 

Ответить на следующие вопросы. 

а) Какие переменные существуют в каждой из точек 
А, В, С и D и каковы их значения в эти моменты? 

б) Почему объекты (переменные), создаваемые проце¬ 
дурой new и уничтожаемые процедурой dispose, называют 
динамическими? Почему им не дают имена? 

в) Можно ли переменной х присвоить ссылку на пере¬ 
менную у ? Можно ли с помощью процедуры dispose унич¬ 
тожить переменные хи у} 

16.5*. type A^fchar; B=*record flichar; f2iA end; 
var p:|B; q:A; 
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Нарисовать структуру значений переменных р и q после 
выполнения следующих операторов! 
new(q); qtt='7'; 

new(p); pj.fl != succ(qf); pf.f2i= q 

16.6. type chain => felem; 

elem = record data:integer; 

linkrchain end; 

var p,q:chain; 

Нарисовать структуру значения переменной р после вы¬ 
полнения следующих операторов! 

а) new(p); p|.datai=4; pf.Hnki=nil; 

б) new(p); pf.data :=7; pf.linki = p; 

в) new(q); qf.datai=2; qf.linki=nil; 
new(p); pf-data: = 1; pt.link: = q; 

r)* new(p); pf.data! = 5; new(pt.link); pf.linkf! = pt 

16.7. Найти ошибки в следующей программе! 
program errors (input,output); 

var a,b:tinteger; 

begin if a=nil then read(a); af:=5; 
b:=nil; bfi=2; 
new(b); read(bf); writeln(b,b|); 
new(a); b!=a; dispose(a); bfs=4 
end. 

16.8*. Почему недопустимы следующие описания и как 
их исправить? 
type А = |0..9; 

B=record psreal; q:C end; 

C=»fB; 

16.9*. Описать переменную p (и, если надо, вспомо¬ 
гательные переменные) и выписать операторы, присваи¬ 
вающие ей указанные значения (рис. 10). 

16.10. type цепочка = )звено; 

звено = record элем: integer; 

след: цеп очка end; 

var ргцепочка; 

Выписать операторы, которые преобразуют значение пере¬ 
менной р, показанное на рис. 11,а, к значению, показан¬ 
ному на рис. 1)* 11,6; 2) 11,в; 3) И,г. (Звенья, ставшие 
ненужными, уничтожить.) 

16.11. Допустимы ли в языке Паскаль конструкции 
Pt|2], qf+ |2] и rff? Ответ обосновать. 

16.12. type ссылка = |real; 

вектор array [1 ..100] of ссылка; 
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Считая, что все элементы вектора х отличны от пі!, 
описаты 

а) функцию тах(х) для нахождения наибольшего из 
чисел, на которые ссылаются элементы вектора х ; 



Рис. 10 


б)* функцию neg\(x), значением которой является пер¬ 
вый из элементов вектора х, ссылающихся на отрицатель¬ 
ные числа, или nil, если таких элементов нет; 



/-□-HZE3 

г 

Рис. 11 

в) логическую функцию same{x), которая 'проверяет, 
есть ли в векторе х хотя бы две одинаковые ссылки; 

г) процедуру unique(x), которая в векторе х все эле¬ 
менты, ссылающиеся на равные числа, заменяет на пер¬ 
вый из этих элементов. 
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16.13. Одно из возможных представлений «длинного» 
текста—это разделить его на участки (строки) равной 
длины и создать массив ссылок на эти строки! 

const d=...; (длина строки} 

п=...; {максим, число строк} 

type строка = packed array [l..d] of char; 
ссылка = fcrpoK a; 
текст = array (l..n] of ссылка; 

(Если в тексте менее п строк, то последние элементы мас¬ 
сива равны nil; в начале массива ссылок nil не должно 
быть. Если в операции над текстом указан номер отсут¬ 
ствующей строки, т. е. элемент массива с этим номером 
равен nil, то такая операция не выполняется.) 

Используя данное представление текста, описать: 

а) функцию числострок(Т) для подсчета числа строк 
в тексте Т; 

б) логическую функцию элем(Т,1,і,с), проверяющую, 
есть ли в тексте Т строка с номером і, и, если 'есть, 
присваивающую /-ю литеру этой строки параметру с; 

в) процедуру перестановка^, i,j), меняющую местами 
і-ю и /-ю строки текста Т; 

г) процедуру вамена(Т,і,і), заменяющую і-ю строку 
текста Т на копию /-й строки; 

д) процедуру добавить\Т,і,і ), добавляющую после і-й 
строки текста Т копию /-й строки; 

е) процедуру удалить(Т ,і), удаляющую і-ю строку из 
текста Т\ 

ж) логическую функцию поиск(Т,с,і,і), определяющую, 
входит ли литера с в текст Т, и, если входит, присваи¬ 
вающую параметрам і и / «координаты» первого вхожде¬ 
ния этой литеры: і —номер строки, а /—номер позиции 
в этой строке; 

з) процедуру выводит), печатающую построчно текст Т ; 

и) процедуру ввод(Т), считывающую из входного файла 
последовательность литер до первой точки и формирую¬ 
щую из них текст Т (последнюю строку, если надо, до¬ 
полнить пробелами). 

В упражнениях 16.14—16.29 использовать (линейные) 
однонаправленные списки без ваглавного эвена (рис. 12,а) 
или с заглавным звеном (рис. 12,6) при следующем их 
описаниш 

type ТЭ =...; {тип элементов списка (уточняемый, 
если надо, в упражнениях)} 
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список = |звено; 

звено — record элем:ТЭ; следхписок end; 

При этом параметры L, L1 и L2 обозначают списки, а 
параметры Е, Е\ и Е2—данные типа ТЭ, к которым 
применимы операции присваивания и проверки на равенство. ' 

16.14. Описать функцию или процедуру, которая) 

а) определяет, является ли список L пустым; 

б) находит среднее арифметическое элементов непустого 
списка L ( ТЭ —real ); 

в) * заменяет в списке L все вхождения Е\ на Е2\ 
і Г4— э г I -г - ... 



е 

Рис. 12 


г) меняет местами первый и последний элементы не¬ 
пустого списка L; 

д) * проверяет, упорядочены ли элементы списка L по 
алфавиту [ТЭ= а'..Ѵ); 

е) находит сумму последнего и предпоследнего элемен¬ 
тов списка L, содержащего не менее двух элементов 
(ТЭ= integer). 

16.15. type MOBo=packed array [1..10] of char; 

ТЭ=слово; 

Описать функцию, подсчитывающую количество слов спис¬ 
ка L, которые) 

а) начинаются и оканчиваются одной и той же литерой; 

б) начинаются с той же литеры, что и следующее слово; 

в) совпадают с последним словом. 

16.16. type файл=Ше of ТЭ; 

массив=аггау [1..50] of ТЭ; 

Описать функцию, значением которой является список, 
построенный из элементов) 

а) * файла f\ 

б) массива х (список строить от конца). 

16.17. Описать процедуру, которая по списку L строит 
два новых списка) Z.1— из положительных элементов и 
L2—H3 остальных элементов списка L {ТЭ —real). 
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16.18. Описать процедуру, которая вставляет! 

а) в начало списка L новый элемент Е\ 

б) в конец списка L новый элемент Е\ 

в) новый элемент Е после первого элемента непустого 
списка L ; 

г) в список £ новый элемент Е 1 за каждым вхожде¬ 
нием элемента Е\ 

д) * в список L новый элемент Е 1 неред первым вхож¬ 
дением элемента Е, если Е входит в L; 

е) в непустой список L пару новых элементов £1 и Е2 
перед его последним элементом; 

ж) в непустой список L, элементы которого упорядо¬ 
чены по неубыванию, новый элемент Е так, чтобы сохра- 
йилась упорядоченность (ТЭ=^геаІ). 

16.19. Описать процедуру, которая удаляеті 

а) из непустого списка L первый элемент; 

б) из списка L второй элемент, если такой есть; 

в) из списка L за каждым вхождением элемента Е 
один элемент, если такой есть и он отличен от Е\ 

г) * из непустого списка L последний элемент; 

д) из списка L первый отрицательный элемент, если 
такой есть ( T9=integer ); 

е) из списка L все отрицательные элементы ( ТЭ=геаІ ). 

16.20*. Программа. Заданный во входном файле текст 

(за ним следует точка) распечатать в обратном порядке. 

16.21. Программа. Дана непустая последовательность 
натуральных чисел, за которой следует 0. Напечатать 
порядковые номера тех чисел последовательности, которые 
имеют наибольшую величину. 

16.22. Программа. Дано целое п>1, за которым сле¬ 
дует п вещественных чисел. Напечатать эти числа в по¬ 
рядке их неубывания. 

16.23. Описать процедуру или функцию, которая! 

а) проверяет на равенство списки L1 и Z.2; 

б) определяет, входит ли список L1 в список L2 ; 

в) проверяет, есть ли в списке L хотя бы два одина¬ 
ковых элемента; 

г) переносит в конец непустого списка L его первый 
элемент; 

д) переносит в начало непустого списка L его послед¬ 
ки й элемент; 

е) * добавляет в конец списка II все элементы списка 12; 

ж) вставляет в список L за первым вхождением эле¬ 
мента Е все элементы списка L 1, если Е входит в L; 

JC2 



з) переворачивает список L, т. е. изменяет ссылки 
в этом списке так, чтобы его элементы оказались распо¬ 
ложенными в обратном порядке; 

и) в списке L из каждой группы подряд идущих рав¬ 
ных элементов оставляет только один; 

к) оставляет в списке L только первые вхождения оди¬ 
наковых элементов. 

16.24. Описать рекурсивную функцию или процедуру, 
которая! 

а) * определяет, входит ли элемент £ в список L; 

б) подсчитывает число вхождений элемента Е в спи¬ 
сок L; 

в) находит максимальный элемент непустого списка L 
(ТЭ=геаІ); 

г) печатает в обратном порядке элементы списка L 
(T9=char)] 

д) заменяет в списке L все вхождения £1 на £2; 

е) * удаляет из списка L первое вхождение элемента Е, 
если такое есть; 

ж) удаляет из списка L все вхождения элемента £; 

з) строит L1 —копию списка L\ 

и) удваивает каждое вхождение элемента £ в список L\ 

к) находит среднее арифметическое всех элементов 
непустого списка L ( ТЭ —real ). 

16.25. Описать процедуру, которая формирует список L, 
включив в него по одному разу элементы, которые! 

а) входят хотя бы в один из списков L\ и L2; 

б) входят одновременно в оба списка L1 и L2; 

в) входят в список L1, но не входят в список L2; 

г) входят в один из списков L\ и L2, но в то же время 
не входят в другой из них. 

16.26. Описать процедуру, которая объединяет два 
упорядоченных по неубыванию списка L1 и L2 ( ТЭ=геаІ ) 
в один упорядоченный по неубыванию список! 

а) построив новый список L; 

б) меняя соответствующим образом ссылки в ІЛ и L2 
и присвоив полученный список параметру L1. 

16.27. Описать процедуру подстановка^, Ll,L2), ко¬ 
торая в списке L заменяет первое вхождение списка L1 
(если такое есть) на список L2. 

16.28. 


const п = ...; {целая константа>1} 
type число= packed array [l..n] of 0..9; 
ТЭ=число; 
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Описать процедуру ynop(L), упорядочивающую по неубы¬ 
ванию числа непустого списка L с помощью следующего 
алгоритма (рис. 13, где п предполагается равным 2). 

Создать 10 пустых подсписков (по количеству цифр), 
а затем, просматривая числа исходного списка, занести 
в Л-й подсписок все числа, оканчивающиеся цифрой k, 
после чего эти подсписки объединить в один список L, 

і ГЧ- ЧМЧ - Ч г) I — г ~ И ю Ы I 


Шаэі 







Рис. 13 


записав в последнее звено k -то подсписка ссылку на на¬ 
чало (Л-И)-го подсписка. Далее аналогичный метод при¬ 
меняется по отношению к предпоследней цифре чисел (не 
нарушая при этом упорядоченность по последней цифре), 
затем—по отношению к третьей от конца цифре и т. д. 
16.29. type слово=| цепочка; 

цепочка= record букваі 'a'./z'; 

связыслово end; 

ТЭ=слово; 

Описать функцию или процедуру, котораяі 

а) в списке L переставляет местами первое и послед¬ 
нее непустые слова, если в L есть хотя бы два непустых 
слова; 

б) * печатает текст из первых букв всех непустых слов 
списка L\ 
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в) удаляет из непустых слов списка L их первые буквы: 

г) печатает все непустые слова списка L ; 

д) определяет количество слов в непустом списке L, 
отличных от последнего. 

16.30. Многочлен 

Р(х)=а п х н +а п . 1 х п ~ 1 +... +а х х-\-а 0 

с целыми коэффициентами можно представить в виде списка 
(рис. 14, а), причем если Я/=0, то соответствующее звено 

і с „ і ч - ЧИдиі -К .. Н' k I Ч - Ч о 1 ъ\Щ 


s Gr— №1_- Н 5 HI 

6 

Рис. 14 

не включается в список (на рис. 14,6 показано представ¬ 
ление многочлена S(x)=52x 40 —Здс*+х). 

Описать на Паскале тип данных, соответствующий 
такому представлению многочленов, и определить следую¬ 
щие функции и процедуры для работы с этими списками- 
многочленамш 

а) логическую функцию paeno(p,q), проверяющую 
на равенство многочлены р и q; 

б) функцию знач(р,х), вычисляющую значение много¬ 
члена р в целочисленной точке х\ 

в) процедуру du<p(p,q), которая строит многочлен р— 
производную многочлена q\ 

г) процедуру CAOM(p,q,r), которая строит многочлен р — 
сумму многочленов q и г; 

д) процедуру вывод(р,ѵ), которая печатает многочлен р 
как многочлен от переменной, однобуквенное имя которой 
является значением литерного параметра о; например, для 
указанного выше многочлена S процедура выводу,'у') 
должна напечатать 

52у|40—Зу|8+у; 

е) процедуру ввод(р), которая считывает из входного 
файла безошибочную запись многочлена (за ней—пробел) 
и формирует соответствующий список-многочлен р. 

16.31. Предложить и описать на Паскале представле¬ 
ние файлов (из элементов некоторого типа ТЭ) в виде 
списков и определить функцию ео/1 (/) и процедуры re$et\(f), 

106 



read\(f,x), rewrilel(f) и wrile\(j,x), реализующие при таком 
представлении файлов действия соответствующих стандарт¬ 
ных функции и процедур. 

16.32. Назовем (иерархическим) «списком» заключенную 
в круглые скобки последовательность элементов, разде¬ 
ленных запятыми; элементы списка—это атомы или снова 
спискиі 

<список>и= () I (<элементы>) 

<элементы>:і=<элемент> | <элемент>,<элементы> 

<элемент>и=<атом> | <список> 

Под «атомом» понимается последовательность, содержащая 
от 1 до л букв и цифр, где п —заранее известное нату¬ 
ральное число. Пример подобного списка: (AD75,(3,(),(7H))). 

Предложить и описать на Паскале представление таких 
списков и определить следующие рекурсивные функции 
и процедуры для работы с ними: 

а) логическую функцию member(A,L), проверяющую, 
входит ли атом А в список L; 

б) логическую функцию equal(L\,L2), проверяющую 
на равенство списки LI и L2; 

в) процедуру printat(L), печатающую все атомы, вхо¬ 
дящие в список L; 

г) процедуру printlist(L), печатающую список L в том 
виде, как он определен указанными выше металингвисти¬ 
ческими формулами; 

д) процедуру readlisl(L), которая считывает из вход¬ 
ного файла записанный без ошибок список и строит L— 
соответствующее представление этого списка. 

16.33. Пусть L обозначает кольцевой (циклический) 
двунаправленный список с заглавным звеном (рис. 15) при 
следующем описании такого списка: 

type ТЭ2=...; {тип элементов списка) 
список2={звено2; 
звено2= record элем:ТЭ2; 

пред,след:список2 end; 

и пусть £ обозначает величину типа ТЭ2. 

Описать функцию или процедуру, которая: 

а) * определяет, является ли список L пустым; 

б) * печатает в обратном порядке элементы непустого 
списка L ( ТЭ2=сИог); 

в) подсчитывает количество элементов списка L, у ко¬ 
торых равные «соседи»; 

г) определяет, есть ли в списке L хотя бы один эле- 
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мент, который равен следующему за ним (по кругу) эле¬ 
менту; 

д) в списке L переставляет в обратном порядке все 
элементы между первым и последним вхождениями эле¬ 
мента Е, если Е входит в L не менее двух раз; 

е) удаляет из списка L первый отрицательный элемент, 
если такой есть; 

ж) из списка L, содержащего не менее двух элементов, 
удаляет все элементы, у которых одинаковые «соседи» 
(первый и последний элементы считать соседями); 

Z IIEH^ 3II5^ Н -рФК| ДІТЬ 

Рис. 15 

з) добавляет в конец списка L новый элемент Е\ 

и) в списке L удваивает каждое вхождение элемента Е; 

к) строит список L по однонаправленному списку LI ; 

л) в конец непустого списка L добавляет все его эле¬ 
менты, располагая их в обратном порядке (например, по 
списку из элементов 1, 2, 3 требуется построить список 
из элементов 1, 2, 3, 3, 2, 1); 

16.34. («Считалка».) п ребят располагаются по кругу. 
Начав отсчет от первого, удаляют каждого k-ro, смыкая 
круг после каждого удаления. Определить порядок уда¬ 
ления ребят из круга. 

Решение этой задачи описать в виде программы (ее 
исходные данные—натуральные числа п и k), которая 
должна напечатать номера ребят в том порядке, как они 
удаляются из круга. 

Решения задач 16.35—16.46 описать в виде программ, 
выбрав для представления данных подходящую списковую 
структуру. 

16.35. Определить, симметричен ли заданный во вход¬ 
ном файле текст (за ним следует точка). 

16.36. Дана последовательность из не менее чем двух 
различных натуральных чисел, за которой следует 0. 
Напечатать в обратном порядке все числа между наиболь¬ 
шим и наименьшим числами этой последовательности. 

16.37. Дана непустая последовательность непустых 
слов из букв; между соседними словами—запятая, за по¬ 
следним словом—точка. Напечатать все слова максималь¬ 
ной длины. 
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16.38. Дана непустая последовательность слов, в каж¬ 
дом из которых от 1 до 12 строчных латинских букв; 
между словами—пробел, за последним словом—точка. 
Напечатать эти слова по алфавиту, указав для каж¬ 
дого из них число его вхождений в эту последователь¬ 
ность. 

16.39. Решить предыдущую задачу в предположении, 
что максимальная длина слов заранее не известна. 

16.40. Дана непустая последовательность слов, в каж¬ 
дом из которых от 1 до 8 строчных латинских букв; между 
словами—пробел, за последним словом—точка. Напеча¬ 
тать эти слова в следующем порядке: сначала—по алфа¬ 
виту все слова из одной буквы, затем—по алфавиту все 
двухбуквенные слова и т. д. (одинаковые слова печатать 
по одному разу). 

16.41. Решить предыдущую задачу в предположении, 
что максимальная длина слов заранее не известна. 

16.42. Дан тексг, оканчивающийся точкой. Среди литер 
этого текста особую роль играет знак #, появление ко¬ 
торого в тексте означает отмену предыдущей литеры текста; 
к знаков # подряд отменяют k предыдущих литер (если 
такие есть). Напечатать данный текст, исправленный 
с учетом такой роли знака # (например, текст 
X3#E##HEL0#L0 должен быть напечатан в виде 
HELLO). 

16.43. Дано произвольное натуральное число п. Напе¬ 
чатать все цифры десятичной записи числа п\ 

16.44. Дано целое п>2. Напечатать коэффициенты п- го 
многочлена Чебышева Т а (х), определяемого формулами 

Г 0 (х)=1; Т і (х)=х\ Т к (х)=2хТ к _ і (х)— T k _ t (x) 

(k—2, 3 , ...). 

16.45. Дана запись многочлена (от переменной л:) про¬ 
извольной степени с целыми коэффициентами, причем его 
одночлены могут быть и не упорядочены по степеням х, 
а одночлены одной и той же степени могут повторяться. 
Возможный пример) 

— 8xf4 — 74x-f-8xt4 -f-5 — х|3. 

Требуется привести подобные члены в этом многочлене, 
после чего распечатать его по убыванию степеней х. 

16.461 Промоделировать выполнение любого заданного 
нормального алгоритма Маркова над любым заданным 
входным еловом (см., например, [9]). 
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17. ОЧЕРЕДИ, СТЕКИ, ДВОИЧНЫЕ ДЕРЕВЬЯ 

17.1. Для работы с очередью, т.е. последовательностью 
элементов, в которую элементы всегда добавляются в конец, 
а удаляются из начала («первым пришел—первым ушел»), 
нужны обычно следующие операцииі 

ОЧИСТОЧ(0) —создать пустую очередь Q (очистить 
очередь); 

ПУСТОЧ(0)— проверить, является ли очередь Q 
пустой; 

ВОЧЕРЕДЬ{<2,х )—добавить в конец очереди Q эле¬ 
мент х\ 

И304ЕРЕ ДИ (Q,x)— удалитъ из очереди Q первый эле¬ 
мент, присвоив его параметру х. 

Требуется для каждого из указанных ниже представ¬ 
лений очереди описать на Паскале соответствующий тип 
очередь, считая, что все элементы очереди имеют некото¬ 
рый тип ТЭО, и реализовать в виде процедур или функ¬ 
ций перечисленные операции над очередью (если операция 
по тем или иным причинам не может быть выполнена, 
следует передать управление некоторой процедуре ОШИБ- 
КА(к), считая ее уже описанной, где k —номер ошибки: 
1—переполнение очереди, 2—исчерпание очереди). 

Представление очереди ( п —целая константа>1): 

а) * для каждой очереди отводится свой, массив из я 
компонент типа ТЭО, в котором элементы очереди зани¬ 
мают группу соседних компонент, индексы первой и по¬ 
следней из которых запоминаются (рие. 16, а); при этом, 
когда очередь достигает правого края массива, все ее эле¬ 
менты сдвигаются к левому краю; 

б) аналогичное представление, но массив как бы склеи¬ 
вается в кольцо, поэтому если очередь достигает правого 
края массива, то новые элементы записываются в начало 
массива (рис. 16,6); 

в) для каждой очереди создается свой однонаправлен¬ 
ный список из элементов типа ТЭО, при этом запомина¬ 
ются ссылки на первое и последнее звенья списка (рис. 16, в), 

17.2. Используя очередь (считать уже описанными тип 
очередь при подходящем типе ТЭО, функцию ПУСТОЧ и 
процедуры ОЧИСТОЧ, ВОЧЕРЕДЬ и ИЗОЪЕРЕДИ—ш. 
17.1), решить следующую задачу (решение описать в вида 
процедуры). 

a)* type FR=file of real; 

За один просмотр файла / типа FR и без использования 
дополнительных файлов напечатать элементы файла / 
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в следующем порядкеі сначала—все числа, меньшие а, 
затем—все числа из отрезка [а,Ь], и наконец—все осталь¬ 
ные числа, сохраняя исходный взаимный порядок в каж¬ 
дой из этих трех групп чисел (а и b —заданные числа, 
а<Ь). 

б) Содержимое текстового файла f, разделенное на стро¬ 
ки, переписать в текстовый файл g, перенося при этом 
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в конец каждой строки все входящие в нее цифры (с со¬ 
хранением исходного взаимного порядка как среди цифр, 
так и среди остальных литер строки), 
в) type имя=(Анна,.. ..Яков); 

дети=раскес1 array [имя,имя] 
of boolean; 
потомки= file of имя; 

Считая заданными имя И и массив Д типа дети (Д[х,у]= true, 
если человек по имени g является ребенком человека по 
имени дс), записать в файл П типа потомки имена всех 
потомков человека с именем И в следующем порядке: сна¬ 
чала—имена всех его детей, затем—всех его внуков, 
затем—всех правнуков и т. д. 

17.3. Для работы со стеком, т. е. последовательностью 
элементов, в которой элементы всегда добавляются в конец 
и удаляются из конца («последним пришел—первым ушел>), 
нужны обычно следующие операции: 

04HCTEK(S ) —создать пустой стек S (очистить стек); 
ПУСТЕК(Ё) —проверить, является ли стек S пустым; 
ПО 



BCTEK(S,x )— добавить в конец стека S элемент х\ 
ИЗСТЕКА{8,х)—уаяпнтъ из очереди S последний эле¬ 
мент, присвоив его параметру х. 

Требуется для каждого из указанных ниже представ¬ 
лений стека описать на Паскале соответствующий тип стек, 
считая, что все элементы стека имеют некоторый тип ТЭС , 
и реализовать в виде процедур или функций перечислен¬ 
ные операции над стеком (если операция по тем или иным 
причинам невыполнима, следует передать управление не¬ 
которой процедуре ОШИБКА (А), считая ее уже описан¬ 
ной, где k — номер ошибкиі 1—переполнение стека 2— 
исчерпание стека). 

Представление стека (л—целая константа>1)| 
а) для каждого стека отводится свой массив из п ком¬ 
понент типа ТЭС, в начале которого располагаются эле¬ 
менты стека, при этом запоминается индекс компоненты 
массива, занятой последним элементом стека (рис. 17, а); 
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Рис. 17 


б) для каждого стека создается свой однонаправленный 
список, в котором элементы стека располагаются в обрат¬ 
ном порядке (рис. 17,6). 

17.4. Используя стек (считать уже описанными тип 
стек при ТЭС= char, функцию ПУСТЕК и процедуры 
ОЧИСТЕК, ВСТЕК и ИЗСТЕК А— см. 17.3), решить сле¬ 
дующую задачу (решение описать в виде процедуры или 
функции). 

а) Напечатать содержимое текстового файла t, выпи¬ 
сывая литеры каждой его строки в обратном порядке. 

б) Проверить, является ли содержимое текстового 
файла t правильной записью формулы следующего вида: 

<формула>и=<терм> | <терм>+<формула> | 

<терм>—<формула> 
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<терм>и=<имя> I «формула» |[<формула>]| 
«формула» 

<имя>:і!=х|у |z 

в) * В текстовом файле f записана без ошибок формула 
следующего вида! 

<формула>и—<цифра> |М«формула>,<формула» | 
т«формула>,<фюрмула>) 

<цифра>п = 011 |2|3|4|5|6|7|8|9 
где М обозначает функцию шах, a m — min. 

Вычислить (как целое чиело) значение данной фор¬ 
мулы (например, М(5,ш(6,8)) —*■ 6). 

г) В текстовом файле LOG записано без ошибок логи¬ 
ческое выражение (ЛВ) в следующей форме! 

<ЛВ>!і= true I false | (1 <ЛВ» | «ЛВ>Д<ЛВ» | 

«лв>ѵ<лв» 

где знаки *), Д и V обозначают соответственно отрица¬ 
ние, конъюнкцию и дизъюнкцию. 

Вычислить (как boolean) значение .этого выражения. 

17.5. Используя очередь и/или стек (считать уже опи¬ 
санными их типы и операции над ними—см. 17.1 и 17.3), 
решить следующую задачу (решение описать в виде про¬ 
цедуры). 

В текстовом файле t записан текст, сбалансированный 
по круглым скобкам: 

<текст>:і= <пусто> | <элемент> <текст> 
<элемент>п==<буква> I «текст» 

Требуется для каждой пары соответствующих открываю¬ 
щей и закрывающей скобок напечатать номера их позиций 
в тексте, упорядочив пары номеров в порядке возрастания 
номеров позиций: 

а) закрывающих скобок} 

б) открывающих скобок. 

Например, для текста А+(45— F(X)*(B— С)) надо напе¬ 
чатать! 

а) 8 10; 12 16; 3 17; 

б) 3 17: 8 10; 12 16. 

17.6. Под «выражением» будем понимать конструкцию 
следующего вида! 

<выражение>!і =<терм>| 

<терм> <знак-|—> <выражение> 

<знак-|—>!!= + I — 
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<терм>и=<множитель> | <множитель>*<терм> 
<множитель>п=<число> |<переменная> | (<выражение>) | 
<множитель> f <чиоло> 
<число>и=<цифра> 

<переменная>и=<буква> 

где знак f обозначает операцию возведения в степень. 

Постфиксной формой записи выражения аДЬ назы¬ 
вается запись, в которой знак операции размещен за опе¬ 
рандами! аЬА. Примеры: 

а— b —* ab— 

а*Ь+о —*• ab*c+ (т. е. (ab*)c+) 

а*{Ь+с) —* abc+* (т. е. a(fcc+)*) 

а Ч- b t с f d*e —*■ abc f d t е* + 

а) Описать функцию value(postfix), которая вычисляет 
как целое число значение выражения (без переменных), 
записанного в постфиксной форме в текстовом файле postfix. 

Использовать следующий алгоритм вычисления. Выра¬ 
жение просматривается слева направо. Если встречается 
операнд (число), то его значение (как целое) заносится 
в стек, а если встречается знак операции, то из стека 
извлекаются два последних элемента (это операнды данной 
операции), над ними выполняется операция и ее резуль¬ 
тат записывается в стек. В конце концов в стеке оста¬ 
нется только одно число—значение всего выражения. 

б) Описать процедуру translate(infix,postfix), которая 
переводит выражение, записанное в обцчной (инфиксной) 
форме в текстовом файле infix, в постфиксную форму и 
в таком виде записывает его в текстовый файл postfix. 

Использовать следующий алгоритм перевода. В стек 
записывается открывающая скобка, и выражение просмат¬ 
ривается слева направо. Если встречается операнд (число 
или переменная), то он сразу переносится в файл postfix. 
Если встречается открывающая скобка, то она заносится 
в стек, а если встречается закрывающая скобка, то из 
стека извлекаются находящиеся там знаки операций до 
ближайшей открывающей скобки, которая также уда¬ 
ляется из стека, и все эти знаки (в порядке их извлече¬ 
ния) записываются в файл postfix. Когда же встречается 
знак операции, то из конца стека извлекаются (до бли¬ 
жайшей скобки, которая сохраняется в стеке) знаки опе¬ 
раций, старшинство которых больше или равно старшинству 
дайной операции, и они записываются в файл postfix, 
после чего рассматриваемый знак заносится в стек. В за- 
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ключение выполняются такие же действия, как если бы 
встретилась закрывающая скобка. 

в) Описать (нерекурсивную) процедуру infixprlnt(post- 
fix), которая печатает в обычной (инфиксной) форме вы¬ 
ражение, записанное в постфиксной форме в текстовом 
файле postfix. (Лишние скобки желательно не печатать.) 

В упражнениях 17.7—17.14 использовать двоичные 
деревья (рис. 18) при следующем их описаниш 
type ТЭД=...; {тип элементов дерева} 
дерево={вершина; 
вершина= record элем:ТЭД; 

лев,прав:дерево end; 

В этих упражнениях Т, Т\ и Т2 обозначают деревья, 
а Е—величину типа ТЭД. 

17.7. Используя очередь или стек (считать уже опи¬ 
санными их типы и операции над ними—см. 17.1 и 17.3), 
описать процедуру или функцию, которая; 



а) присваивает параметру Е элемент из самого левого 
листа непустого дерева Т (лист—вершина, из которой не 
выходит ни одной ветви); 

б) * определяет число вхождений элемента Е в дерево Г; 

в) вычисляет среднее арифметическое всех элементов 
непустого дерева Т (ТЭД=геаІ)\ 

г) заменяет в дереве Т все отрицательные элементы на 
их абсолютные величины {ТЭД— real)', 

д) меняет местами максимальный и минимальный эле¬ 
менты непустого дерева Т, все элементы которого различны 
(ТЭД— real)\ 

е) печатает элементы из всех листьев дерева Т 
( ТЭД=сИаг ); 



ж) * печатает все элементы дерева Т по уровнямг сна¬ 
чала—из корня дерева, затем (слева направо)—из вер¬ 
шин, дочерних по отношению к корню, затем (также слева 
направо)—из вершин, дочерних по отношению к этим 
вершинам, и т. д. (ТЭД=Шецег)\ 

з) находит в непустом дереве Т длину (число ветвей) 
пути от корня до ближайшей вершины с элементом Е\ 
если Е не входит в Т, за ответ принять —1; 

и) подсчитывает число вершин на n -ом уровне непув- 
того дерева Т (корень считать вершиной 0-го уровня). 



Рис. 19 


17.8. Описать рекурсивную функцию или процедуру, 
которая! 

а) определяет, входит ли элемент Е в дерево Т\ 

б) * определяет число вхождений элемента Е в дерево Т ; 

в) вычисляет сумму элементов непустого дерева Т 
[ТЭД=геаІ); 

г) находит величину наибольшего элемента непустого 
дерева Т ( ТЭД—геаІ)\ 

д) печатает элементы из всех листьев дерева Т (ТЭД= 
char)-, 

е) * определяет максимальную глубину непустого де¬ 
рева Т, т. е. число ветвей в самом длинном из путей от 
корня дерева до листьев; 

ж) подсчитывает число вершин на л-ом уровне не¬ 
пустого дерева Т (корень считать вершиной 0-го уровня). 

17.9. Рекурсивно и нерекурсивно описать логическую 

функцию equal{T\ ,Т2)} проверяющую на равенство де¬ 
ревья ТІ и Т2. ' 

17.10*. Описать процедуру сору(Т,Т1), которая 
строит 74— копию дерева Т. 

17.11. Описать процедуру create{T,n), где л —поло¬ 
жительное целое число, которая строит Т —дерево, пока¬ 
занное на рис. 19. 
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17.12. Описать логическую функцию same(T), опре¬ 
деляющую, есть ли в дереве Т хотя бы два одинаковых 
элемента. 

17.13. Формулу вида 

<формула>!!=<термннал> | 

«формула) <знак> <формула» 

<знак>п = + | — I* 

<терминал>п=011 |2|3|4|5|6|7|8|9 

можно представить в виде двоичного дерева («дерева-фор¬ 
мулы») с ТЭД=сЬат согласно следующим правилам; фор¬ 
мула из одного терминала (цифры) представляется дере¬ 
вом из одной вершины с этим терминалом, а формула вида 



(fi s fi) —деревом, в котором корень—это знак s, а левое 
и правое поддеревья—это соответствующие представления 
формул и .(На рис. 20 показано дерево-формула, 
соответствующее формуле (5*(3+8)).) 

Описать рекурсивную функцию или процедуру, которая; 

а) вычисляет (как целое число) значение дерева-фор¬ 
мулы Т; 

б) по формуле из текстового файла f строит соответ¬ 
ствующее дерево-формулу Г; 

в) печатает верево-формулу Т в виде соответствующей 
формулы; 

г) проверяет, является ли двоичное дерево Т деревом- 

формулой. t 

17.14. Пусть в дереве-формулё (см. упр. 17.13) в ка¬ 
честве терминалов используются не только цифры, но и 
буквы, играющие роль переменных. Описать процедуру, 
которая; 

а)* упрощаеі дерево-формулу Т, заменяя в нем все под¬ 
деревья, соответствующие формулам (/+0), (0+/), ( f —0), 
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(/*1) и (1*/), на поддеревья, соответствующие формуле f, 
а поддеревья, соответствующие формулам (/*0) и (0*•/),— 
на вершину с 0; 

б) преобразует дерево-формулу Т, заменяя в нем все 
поддеревья, соответствующие формулам ((/,±^ г )*/,) и 
(/і*(/ 2 ±/з)). на поддеревья, соответствующие формулам 

((M*)±(h*f*)) и ((МММ .)); 

в) выполняет в дереве-формуле Т преобразования, 
обратные преобразованиям из п. б; 

г) строит дерево-формулу Т\ —производную дерева- 
формулы Т по переменной, однобуквенное имя которой 
является значением литерного параметра ѵ. 

17.15. Предложить и описать на Паскале представ¬ 
ление в виде двоичного дерева для формул из упр. 17.13, 
в которых в качестве терминалов используются любые 
неотрицательные целые числа. Для такого представления 
реализовать те же операции, что и в упр. 17.13. 

17.16. Деревом поиска, или таблицей в виде дерева, 
называется двоичное дерево, в котором слева от любой 
вершины находятся вершины с элементами, меньшими 
элемента из этой вершины, а справа—с большими элемен¬ 
тами (предполагается, что все элементы дерева попарно 
различны и что их тип (ТЭД) допускает применение 
операций сравнения); пример такого дерева показан на 
рис. 21. 

Считая описанными тип дерево (см. выше) и тип файлі 

type файл=Ше of ТЭД; 

определить функцию или процедуру, которая: 

а) проверяет, входит ли элемент Е в дерево поиска Т; 

б) записывает в файл f элементы дерева поиска Т 
в порядке их возрастания; 

в) добавляет к дереву поиска Т новый элемент Е, если 
его не было в Т; 

г) по файлу /, все элементы которого различны, строит 
соответствующее дерево поиска Т. 

17.17. Во внешнем текстовом файле PROG записана 
(без ошибок) некоторая программа на языке Паскаль. 
Известно, что в этой программе каждый идентификатор 
(служебное слово или имя) содержит не более 9 латинских 
букв и/или цифр. Напечатать в алфавитном порядке все 
различные идентификаторы этой программы, указав для 
каждого из них число его вхождений в текст программы. 
(Учесть, что в идентификаторах одноименные прописные 
и строчные буквы отождествляются, что внутри литерных 
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значений, строк-констант и комментариев последователь¬ 
ности из букв и цифр не являются идентификаторами 
и что в записи вещественных чисел может встретиться 
буква Е или е.) 

Для хранения идентификаторов использовать дерево 
поиска, элементами которого являются пары—идентифика¬ 
тор и число его вхождений в текст программы. 

17.18. Р§щить предыдущую задачу, но вместе с каж¬ 
дым идентификатором печатать в возрастающем порядке 
номера всех строк текста программы, в которых он встре¬ 
чается. 

17.19. Решить задачу 17.17 при условии, что макси¬ 
мальная длина идентификаторов заранее не известна. 

17.20. Решить задачу 17.18 при условии, что макси¬ 
мальная длина идентификаторов заранее не известна. 




ОТВЕТЫ И РЕШЕНИЯ 


1. ЧИСЛОВЫЕ ТИПЫ. ОПЕРАТОР ПРИСВАИВАНИЕ 

1.1. в) 120; б) 64; в) «.38; г) —0.7444; д) 2.75; е) —0.1667; 
ж) 1.4142; в) 3.1416; и) 5Е6; к) —24.8Е-7; л) 1Е6; м) 1Е—5. 

1.2. а) —2.7; б) 0.666; в) 10.0. 

1.3. Неправильные: в), г), е), ж), а), л), м). 

1.6. Нет. 

1.8. a) a+b*x+c*y*z; б) ({а*х— b)*x+c)*x—d; 

в) a*b/c+c/(a*b); г) (х+у)/а1*а2/(х—у); 

д) lE4*alpha—3.2*beta; е) (l+x/2+y/6)/(l-f 2/(3+х*у)) 

'• 9 - 7TT-S’ 

1.10. 32.0 

1.12. 7 операций; (х+0.5)*(у+0.7)—0.75 

1.14. б) sqrt(l+sqr(x)); д) sqr(cos(x*x*x)); 
ж) 1п(х/5)/1п(2); к) arctan(x/sqrt(l— sqr(x))) 

1.15. а) 1/х; б) sqr(sqr(x)); д) ехр(100*1п(х)); 
а) ехр(1п(1+х)/3) 

1.16. exp(l); 4*arctan(l) 

1.17. sln(3.1415927*x/180) 

1.20. а) у:=1+х*(1+х/2*(1+х/3*(1+х/4))) 

1.21. б) d:=sqrt(sqr(xl — x2)+sqr(yl— у2)); 

г) p:=(a+b+c)/2; d:=sqrt(p*(p— а)*(р—Ь)*(р—с)) 

1.25. г: = х; х:=у; у:=г 

1.27. а) 6; б) 7; в) 6; г) 6; д) —1; е) —2; ж) 1; в) -1 

1.28. d:=x — trunc(x) 

1.29. а) 3; б) 2; в) 5; г) 0; д) 0; е) 2; ж) и з)—ошибки. 

1.31. (—(a mod b))+((a div Ь)*с) 

1.32. б) 2. 

1.33. Целый тип: в), ж), а). 

1.35. Правильные: а), г), д). 

1.36. а) Неправильный оператор: если k — вещественная пере- 
ыенная, тогда недопустима операция k mod 3, а если А—целая 
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переменная, то ей присваивается значение вещественного выраже¬ 
ния (cos(0X— вещественное число), что также недопустимо. 

1.37. h:=k div 100 mod 10 

2. ЛОГИЧЕСКИЙ ТИП 

2.1. a) true; б) false; в) true. 

2.2. a) k mod 7=0; б) sqr(b)— 4*а*с < 0; 


в) sqr(x — 1 )+sqr(y) > sqr(r) ; г) sqr(round(sqrt(n)))=n 

2.3. а), б), г) — true; в), д) — false. 

2.4. а) (х > 0) and (х< 1); б) (х>=у) and (x>=z); 



2.6. Ошибка в каждом случае. 

2.7. а), б) —недопустимые типы операндов; в)—операнды раз¬ 
ных типов; г), д)—отношения не ваключены в скобки (согласно 



синтаксису Паскаля выражение not 2=5 воспринимается как 
(not 2)=5, а выражение х>0 or у=. 4—как х>(0 or у)=4); е)—два 
знака or подряд. 

2.8. a) (a and b) or ((not с) and b) 

2.10. в) (х>=2) and (х<=5) or abs (*)< =1 j 
г) (x<—1) or (x> 1) and (x<2) or (x>5); 

к) (y mod 400=0) or (y mod 4=0) and! (y mod 100<>0) 

2.11. а) см. рис. 22. 

?.12. в) (sqr(x)-J-sqr(y)<=1) and (abs(x)+abs(y)> = l) 

2.13. a), r) —true; б), в)— false. 

2.14. a) false; 6) true; в) false. 

2.15. a) odd(n)=odd(k); 6) a<>b (или ord(a)-j-ord(b)Kl}, 

2.16. а) см. рис. 23. 
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2.17. в) 


true 
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false 

false 


true 

false 

true 

false 


true 

false 

true 

true 


false 

false 

true 

true 


true 

false 

true 

true 


2.18. a) not a and b 

2.19. a) true. 

3. ПРОСТЕЙШИЕ ПРОГРАММЫ 


3.1. Rl=1.0 x2=—2.0 

3.2. program коэфф (input, output)! 

var xl,x2,p,q:real; 
begin read(xl,x2); {ввод корней) 

p:=—(xl+x2); q:=xl*x2; {вычисление 

коэффициентов) 

іѵгйе1п('коэффициенты:%1.0,р^) 

end. 

3.5. Нельзя, так как исходным данным для целой переменной (а) 
не может быть вещественное число (5.0). 

3.7. 3 2 3 

3.8. х+1 

8.10. program печать (input, output); 

var a,a3,a6:Jnteger; 

begin read(a); a3:=a*a*a; a6:=sqr(a3); 

writeln(a); writeln(a3,a6); \vriteln(a6,a3,a) 
end. 

8.11. Достаточно в разделе констант число 2.71828 заменить 
на число 3.14159. 

8.12. program больше (output); 

const е=2.71828; рі=3.14159; 
begin writeln(exp(pi)>exp(e*ln(pi))) end. 

3.15. а) В операторе присваивания d:=sqr(d) слева указам 
имя константы, что запрещено. 

б) Применять функцию ord к вещественному аргументу (|) 
нельзя. В выражении ord{x)=k сравниваются величины разныя 
типов, что недопустимо. 

в) Переменная с не получила еначения, поэтому прибавлять 
к ней ничего нельзя. 

г) Переменная у не описана. 


121 




д) Имя В описано дважды —как константа и как переменная 
(в именах одноименные заглавные н строчные буквы, в частности В 
и Ь, не различаются). 


4. ОПЕРАТОРЫ? УСЛОВНЫЙ, СОСТАВНОЙ, 

ПУСТОЙ, ПЕРЕХОДА 

4.1. a) if (x>0)and(x<2) then y:=sqr(cos(x)) 

else y:=l— sin(sqr(x)); 

б) if abs(a)< «=3.14159/2 then x:=exp(sin(a)-l); 
r) if (a>b)and(a>c) then d:=a else 

if b>c then d:=b else d:=c; 
д) if x<0 then if x>y then z:=x else z:=y 
else if x<y then z:=x else z:=y 

4.3. a) c:=y div 100; if у mod 100 <> 0 then c:=c+l; 

в) d:=sqr(b)—4*a*c; t:=d > =0; 

if t then begin d:=sqrt(d); a2:=2*a; 

xl:=(—b+d)/a2; x2:=x(—b-d)/a2 
end; 

д) if a<b then begin r:=a; a:=b; b:=r end; {a>=b} 
if a<c then begin r:=a; a:=c; c:=r end; {a>=c} 
if b<c then begin r:=b; b:=c; c:=r end; {b>=c} 

4.4. a) 1; 6) 2; в) 0 

4.5. if w< >0 then 

begin if cos(w)/sin(w)<0.5 then w:=—w end 
else w:=l 

4.7. b:=x=y 

4.8. if a then x:=true else 

if b then x:=c else x;=false 

4.11. Пустой оператор есть во всех примерах: а) между else и 
«;»; б) между then и else; в) между t;» и end; г) между первой и 
второй точками с запятой; д) между «1:» и end. 

4.13. 6 

4.14. а) 1-й вариант: 

{при а>Ь НОД(а,Ь)=НОД(а—Ь, Ь)} 

al:=a; bl:=b; {чтобы не портить а и Ь} 

1; if al=bl then goto 2; 

if al>bl then al;=al— Ы else bl:=bl—al; 
goto 1; 

2: c:=al; 

2-й вариант ; 

{при a>b>0 НОД(а,Ь)=НОД(а mod b.b); НОД(0,Ь)=Ь} 
al:=a; bl:=b; 

1: if (al=0) or (bl=0) then goto_2; 

if al>bl then al:=al mod bl else bl;=bl mod al; 
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goto 1; 

2: if al=0 then ci=bl else c:=al; 
в) p:=l; i:=2; 

9: p:=p*(l—l/sqr(i)); 

l:=i+l; If l<*=n then goto 9 
4.18. program max (input,output); 
label 4,9; 

const n=50; {количество заданных чисел) 
var x,max:real; i:integer; 

{x — очередное число, i— -его номер, 
max — наибольшее среди уже 
введенных чисел} 
begin read(max); i:=l; 

4: i:=i+l; if i>n then goto 9; 
read(x); If x>max then max:=x; 
goto 4; 

9: writeln('max=',max) 
end. 


б. ОПЕРАТОР ЦИКЛА 

5.1. {оператор цикла с предусловием:} 
f:=l; i:=2; while i<=10 do begin f:=f*i; 

i:=i+l end; 

{оператор цикла с постусловием:} 
f:=l; l:=2; repeat f:=f*i; i:=i+l until i> 10; 

{оператор цикла с параметром:} 
f:=l; for i:=2 to 10 do f:=f*i 

5.2. a) 0.2; 6) 0.0; в) 1.0; г) 1.0 

5.3. a) al:=a; bl:=b; {чтобы не портить а и b} 

while (al<>0) and (Ы < >0) do 
if al> Ы then al:=al mod Ы 
else bl:=bl mod al; 
if al<>0 then c:=al else c:=bl; 

б) n:=0; repeat n:=n+l; u:=cos(cos(n)/sin(n)) 

until u<0; 

в) p:=l; for i:=2 to n do p:=p*(l—l/sqr(i)>; 

r) y:=cos(40); for n:=39 downto 1 do y:=cos(n+y) 

5.4. x:=l; for n:=l to k do x:=n*x-{-l/n 

5.5. 1:=0.001; r:=1.5; {левый и правый концы отрезка 

с корнем: tg(l)<l, tg(r)>r} 
repeat х:=(1+г)/2; {середина отрезка {1,г)} 
if sin(x)/cos(x) <х then 1:=х {[l,r|:={x,r|) 
else r;=x {[l.rl^ll.Kl} 


until r—1< IE—5; 



х:=(1+г)/2 {корень— середина 

последнего отрезка [1,г]} 

5.9, program index (input,output); 

var x,i,min,k:integer; {x и i— очередное число и его 
номер; min и к —минимальное из введенных чисел 
и его номер} 

begin read(min); k:=l; read(x); i;=2; 
while x<>0 do 

begin if x<min then 

begin min:=x; k:=l end; 
read(x); i:=i+l 

end; 

writelnf'HOMep минимального числа — ',k) 

end. 

5.11. a) y:=l; for i:=2 to 11 do y:=y*x+i; 

6) y:=U; for i:=10 downto 1 do y:=y*x+i 

5.13. a) y:=l; for i:=l to n do y:=y*(2*i—1) 

5.15. a) y:=0; u;=l; {u=xfi=x*xf(i— 1)} 

for i:=l to 30 do 
begin u:=x*u; y:=y+cos(u) end; 

6) y:=l; f:=l; {u=il= i-l)!*i} 

for i:=2 to n do begin f:=Ui; y:=y+f end 

5.16. a) g:=l; f:-l; {g=f 0 , f=fi> 

for n:=2 to 40 do 
begin {g=f„_*, f=f„_i} 

h:=g; g:=*f; f:=h+g; 

{g=f»-i, f=*»> 
end 

5.17. a) y:=l; {сумма} n:=0; {номер слагаемого} 
u:=l; {n-e слагаемое=х п /пІ=х" -1 /(п— l)l*(x/n)} 
repeat n:=n+l; u:=u*x/n; y:=y+u until abs(u)<eps 
5.19. y:=0; for i:=0 to 10 do y:=±y+sin(l+0.1*i) 

5.22. 3 раза (начальное и конечное значения параметра цикла 
вычисляются только раз—в начале выполнения оператора цикла). 

5.23. s:=0; 

lor k;=trunc(ln(x))+: to trunc(exp(x)) do s:=s+sqr(k) 

5.25. a) t;=true; y:=l; {y=x n =x*x"~ 1 } 

for n:=l to 30 do 

begin y;asx*y; if sin(y) <0 then goto 15 end; 
t:=false; 

15: ... 

6) y:=l; n:=0; 

repeat n:=n+l; y:==x*y; t:=sin(y)<0 until t or (n=30) 

5.26. {У составною числа n обязательно есть делитель к из 
отрезка 12,sqrt(n)], он и ищется} 
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p:=true; k:=2; 

while p and (sqr(k)<=n) do 

if n mod k=0 then p:=false else k:=k+l 

5.29. a) p:=I; 

fop I:=l to 20 do 
for J:=l to 20 do p:=p/(i+sqr(j)) 

5.30. k:=0; 

{dl— левая, d2— средняя, бЗ^правая цифры числа} 
for dl:=l to 9 do 
for d2:=0 to 9 do 
for d3:=0 to 9 do 
if dl+d2+d3=n then k:=k+l 


в. ЛИТЕРНЫЙ ТИП 

6.1. Да: а), ж), я). 

6.2. a) '6's б) true; в) 5; г) true; д) true; е) true; ж) 23; з) '6*. 

6.3. a) t:=d= V; б) t:=(d=V)or(d='q'); 
в) t:=(d> = / 0 , )and(d <='9') 

6.4. а) б) 'о'. 

6.5. s:=ord('S')4-ord('U')+ord('M') 

6.6. wrlteln (chr(65) ,chr(7 1) ,chr(69)) 

6.7. if dig='9' then next:=>'0* else next:=succ(dig) 

6.8. b:=ord('z')—ord('a')=25 

6.9. for c:='A' to 'Z' do write(c); writeln 

6.10. a) for d:='l' to '9' do 

begin for с:='Г to pred(d) do write('0')| 
write(d); 

for c:=succ(d) to '9* do write('0')| 
writeln 
end 

6.11. program ab (input, output); 

var c; char; {очередная литера текста} 

ka, kb: integer; {число вхождений a В UJ 
begin ka:=0: kb:=0; read(c); 
while c<>'.' do 

begin if c='a' then ka:=ka+l else 
if c='b' then kb:=kb+lj 
read(c) 

end; 

writeln(ka>kb) 

end. 

6.14. program целоечисло (input,output); 
var c:char; t:boolean; 
begin t:=false; 
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read(c); If (c='+')or(c='—*) then readfrV 
if (c>='0')and(c<='9') then 
begin repeat read(c) 

until (c<'0')or(c>'9'); 
t:=c=V 

end; 

if t then writeln ('правильно') 
else writeln ('неправильно') 

end. 

6.16. 

а) program безцифр (input,output)) 

var crchar; 
begin read(c); 

repeat if (c='+')or(c='—') then write(c,c) else 
if (c<'0')or(c>'9') then write(c); 
read(c) 
until c='.'; 
writeln 
end. 

б) program безплюса (Input,output); 

var a,b:char; {а—очередная литера текста, 
b— следующая) 

begin read(a,b); 
while b< >'.' do 

begin if (a<>'+')or(b<'0')or(b>'9') 
then write(a); 
a:=b; read(b) 

end; 

writeln(a) 


a) program слова (input,output)) 
var eschar; kjinteger; 
begin k:=0j 

repeat {цикл по словам) 
read(c); (первая буква слова) 

If c='a' then k:=k+l; 

{пропуск остальных букв слова:) 
repeat read(c) until (c=',')or(c='.') 
until c=='.'i {признак последнего слова) 
Writeln ('с буквы "а* начинается ',к,' слов') 
end. 

6.20. n0:=ord('0'); 

k;=1.00*(ord(c2)-n0)+10*(ord(cl)—n0)+ 

(ord(c0)—nO) 
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6.21. n0:=ord('0'); 

d:=k div 100} c2:=chr(n0+d); 
d:=k mod 100 div 10; cl:=chr(nO+d); 
d:=k mod 10; cO:=chr(nO-fd) 

6.22. {var crchar; sign, nO:integer;} 

{определение знака числа:} 

sign:=l; read(c); 

if c ='—' then begin sing:=—1; readfc) end else 
if c='+' then read(c); 

{чтение цифр (первая —в с) и вычисление абсолютной вели¬ 
чины числа к по схеме Горнера:} 
n0:=ord('0'); к:=0; 

repeat k:=10*k + ord(c)— п0; read(c) until с=' 

{учет знака:} k:=sign*k 
6.30. a) for i:=l to k— 1 do write(' ')! 
writeln(V); 

{или: wrlteIn(V:k)} 

6) if k>n then max:=k else max:=n; 
for i:=l to max do 
if i=k then write(4') else 
if i=n then write('I') else write (' Of 
writeln 

7. ПЕРЕЧИСЛИМЫЕ И ОГРАНИЧЕННЫЕ ТИПЫ. 

ОПЕРАТОР ВАРИАНТА 

7.1. а) Недопустимы: 4), 5); б) 1) true; 2) true; 3) false; 
4) ошибочное отношение; [5) лето; 6) зима; 7) ошибочное выраже¬ 
ние; 8) тепло; в) 1) 1; 2) 4; г) допустим; д) недопустимы: 1), 2), 3). 

7.2. Правильно описаны типы гласная, фигура, лог. 

7.3. а) Недопустимы: 2), 3); б) допустимы: 1), 3), 6); пра¬ 
вильность 5) зависит от кодировки литер-цифр; в) ошибок нет; 
г) нельзя. 

7.4. Правильно описаны типы цифра, угол, плюс, неделя, будни. 

7.5. t:=(m! <m2)or(ml=m2)and(dl <d2) 

7.6. a) if т=дек then т1:=янв else ml:=succ(m); 

б) ml:=m; 

for i:=l to k mod 12 do 
if ml = дек then т1:=янв else ml:=succ(ml); 

в) т1:=янв; for i:=l to n—1 do ml:=suce(ml) 

7.11. a) p=lalse, d=3; 6) p=true, d=235; в) p=true, d=l; 

г) ошибка. 

7.13. case m of 

янв,фев,дек: s:=3HMa; мзр,апр,май: 5:=весна: 
июн,июл,авг: в:=лето; сен,окт,ноя: в:=осень 
end 
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7.16. case c of 

черный: тегИеІп('черный'); 
серый: wrlteln('cepbift'); 
белый: 1 УгИе 1 п('белый') 
end 

7 18, {ѵаг ch:char;} 

readfch); 

case ch of 

's': x:=a; 'b': x:=bj V: x:=o; 'd': x:=d 
end 

7.23. case m of 

янв,мар,май,игол,авг,окт,дек: d:=31j 
фев: d:=28; 

апр,шон,сен,ноя: d:=30 
end 

7.26. а) {ѵаг шіімесяц;} 

{количество дней в предыдущих месяцах:} 
к:=0; т1:=янв; 
while ш1<ш do 
begin case ml of 

ян»,мар,май,июл,авг,окт: k:=k+3I; 
фев: k:=k+29; 
апр.июн.сен.ноя: k:=k+30 
end; 

ml:=succ(ml) 

end; 

{учет дней в месяца m:} k:=k+d 
8. РЕГУЛЯРНЫЕ ТИПЫ: ВЕКТОРЫ 

8.1. Массив а: а) 30; б) real-, в) о[1], а[30]. 

Массив Ь : а) 5; б) х, у, г; в) Ь[— 2], г>[2]. 

Массив с: а) 10; б) массивы типа вектор-, в) cf'0'J, с('9'|. 
Массив d: а) 3; б) целые от 0 до 23; в) d[e4epa], с![завтра]. 

8.2. type R=array [char] of l..maxint 

8.4. Неправильно описаны типы слово, вектор и цифры, а так* 
же переменная х. 

8.5. а) у:=1; for І:=І to n do y:=y*x[i]; 

y:=exp(ln(abs(y))/n); 

б) y:=x[l]; for 1:=2 to n do If x[l]>y then y:=x[l]; 

в) y:=0; p:=l; 

for 1:=1 to n do begin y:=y+p*x[I]; p:=—p end; 
r) y:=0; for i:=l to n do y:=y+x[i]*x[n+l—1]; 

д) y:=0; for I:=0 to n div 2 do y:=y+sqr(x[2*l+l]>; 

е) y:=l; p:=»0; 

for i:=n downto 1 do begin p:=p+x[i]; y:=y*p end 



8.7. a) {var max:integer; и1:имя;} 
max:=139; 

for и1:=Валя to Шура do 
if (Пол[и1]=муж) and (Рост[и1]>шах) then 
begin тах:=Рост[и1]; И:=и1 end 

8.8. for i:=l to 72 do t[i]:=k[t[i]] 

8.12. i:=0; 

repeat i:=i+l until (i=n)or(a[i]< >b[i]); 
if a[i]=b[i] then c:=a else 
for i:=l to n do c[i]:=a[i]+b[i] 

8.13. program ВводВыводМассива (input,output); 

const n=100; d=6; 

var x:array [l..n] of integer; i,k:integer; 
begin {ввод массива:) 

for i:=l to n do read(x[i]); 

(вывод массива no d чисел в строке:} 
k:=0; {номер числа в строке) 
for i:=n downto 1 do 
begin k:=k+l; write(x[i]); 

if k=d then begin k:=0; writeln end 
end; 

if k< >0 then writeln 
end. 

8.14. for i:=0 to 39 do y[i]:=x[i+l] 

8.15. Массивы не нужны в задачах а) и г). 

8.16. 

а) program A (input,output); {с массивами) 

const п=30; {четное число) 
var x,y:array [l..n] of real; 
i:integer; sl,s2:real; 
begin for i:=l to n do read(x[i]); 
for i:=l to n do read(y[i]); 
sl:=0; {числитель} s2:=0; {знаменатель} 
for i:=l to n div 2 do 
begin sli=sl+x[2*i—l]*y[2#i—1]; 
s2:=s2+x[2*i]*y[2*i] 

end; 

writeln(sl/s2) 

end. 

б) program Б (input,output); {без массивов) 

const n=30; 

var i:integer; x,y,sl,s2trealj 
begin si :=0; s2:=0; 
for i:=l to n do 

begin read(x,y); {ввод x[ij и y[l]} 
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if odd(i) then slj==sl+x*y else 1 s2:*=;$2+x*y 
end; 

writeln(sl/s2) 

end. 

8.18. program СначалаЦифры (input,output); 
const n=80; 

var xrpacked array [l,.n] of char; 
c:char; i, к :integer; 
begin k:=0; {количество нецифр} 
for i:=l to n do 
begin read(c); 

{цифру—на печать, нецифру— в массив х:} 
if (с > ='0')and(c< ='9') then write(c) else 
begin ki=k+l; x[k]:=c end 
end; 

{печать всех литер из х:} 
for i:=l to k do write(x[i]); writeln 
end. 

8.21. a) p:=l; {очередная степень двойки} 

repeat write(s[p]); p;=2*p until p>n; 
writeln 

8.26. 6) for k:=l to n div 2 do 

begin r:=x[k]; x[k]:=x[n+l— kj; 

x[n+l—k]:=r end; 
r) r:=x[l]; for k:=l to n—1 do x[k]:=x[k+l]; 

x[n]:=r 

8.28. p:=l; {индекс очередного элемента из г } 
і:=1; {из х} }:=1;,{из у} 

{пока есть нерассмотренные элементы и в х, и в у:} 
repeat if x[i]<y[j] then begin z[p]:=x[i]; i:=i+l end 
else begin z[pj:=y[j]; j:=j+l end; 

p:=p+l 

until (i>k)or(j>m); 

{один из массивов x и у исчерпан —*■ перепись в г оставшихся 
элементов другого массива:} 
if i>k {исчерпан массив х} 
then repeat z[p]i=y[j]; j:=j+l; p:=p+l until ]>m 
else repeat z[p]:=x[i]; i:=i+l; p:=p+l until i>k 
8.33, a) i:=l; 

repeat t:=x[i]<x[i+l]! i:=i+l 
until (not t)or(i=n) 

8.35. {label 9; var ф1,ф2:фамилия;} 

ЕстьТезки:=1гие; 

for ф1:=Бетелин to pred (Школьный) do 
for ф2:=5исс(ф1) to Школьный do 
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if MM511 [ф1]=ММ5І I [ф2] then goto 9; 
EcTbTe3KH:=false; 

9з ... 

8.38. a) for к i=n downto 2 do 

begin {поиск in— номера max x[l..k]i} 
m:=l; 

for i:==2 to к do if x[i]>x[m] then mi=ij 
{перестановка Элементов x[m] и x[k];} 
r:=x[k]; x[k]:=x[m]} x[m];=r 
end 

8.39. kt=0; 1:=1; r:=n; 

{поиск p среди к[1..г]:} 
repeat m:=(l+r) div 2; {середина 

отрезка l,.r} 

if x[m]=p then k:=m else 

{замена 1„г на m-H..r или l„m—1} 
if p>x{mj then l:=m+l else r;=m—1 
until (k < >0)or(l> r) 

8.42. a) R[0]:=P№1; 

for i:=l to n do R[i]: =R[i]—a*P[i—11; 
R[n+lJ:=—a*P(n] 

9. РЕГУЛЯРНЫЕ ТИПЬЦ МАТРИЦЫ 

9.1. Одинаковы. 

9.3. Допустимые операции: а), д), е). 

9.4. program ВводВыводМатрицы (inpul.output)} 

const n=4; 

ѵаг A:array [l..n,l,.n] of real; i,J:integerj 
begin {ввод матрицы по строкам:} 
for i:=l to n do 
for j:=l to n do read(A(i,jJ)} 

{вывод матрицы по столбцам:} 
for j:=l to n do 

begin for i:=l to n do write(A{i,j])j 
writeln 
end 

end, 

9.5. a) for i:=l to n do 

for j:=l to n do C[i,3]:=A{i,i]+B[i,j]j 
б) {У(І1=2АЦ.ІМЦ} 
for i:=l to n do 
begin s:=0; 

for j:=l to n do s;=s-}-A{i,]'l»x[j]i 
y[i]:=s 
end; 
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В) {C[i,]]=SA[i,kl*B[k,il} 

for i:=l to n do for j:=l to n do 
begin s:=0; 

for k:=l to n do s:=s+A[i,kJ*B[k,j]; 

C[i,j]:=s 

end; 

r) {B[i,j]«-»B[j,i], ]>i} 

for i:=l to n—1 do for j:=i+l to n do 
begin r:=B[i,j]; B[i,j];=B[j,i); B[j,i]:=r end 
9.6. {label 1;} 
t:=false; 

for i:=0 to 9 do for j:=—5 to 3 do 
if A[i,jl<>B[i,jl then goto 1; 
t:=true; 

1 : ... 

9.8. Неверны: а), в), e). 

9.9. a) for i:=0 to 9 do A[2*l+l]:=x; 

b) for j:=l to 10 do for i:=l to 20 do A[i,2*j]:=x[i]; 
в) for i:=l to 6 do for j:=l to 20 do Bli,j]:=x[j] 

9.11. d:=0; 

for 1:=1 to 39 do 
for j:=i+l to 40 do 

begin r:=sqr(M[i,x]—M[j,x])+sqr(M[i,y]—M(j,y]); 

if r>d then d:=r 
end; 

d:=sqrt(d) 

9.13. {var ііюстров; шіімесяц;} 
і:=Барбадос; т:=янв; 

for П:=Барбадос to Ямайка do 
for ш1:=янв to дек do 

if t[i 1 ,ml]>tii.m] then begin i:=il; m:=ml end 

9.14. a) s:=A|1,1]+A[9,1]+A11,9]+A19,9]; 

for i:=2 to 8 do 

а^+АІІ.ІИ-АІЭ.ІІ+АІІ.ІИ-АІІ.Э) 

9.16. a) for i:=l to 10 do A[l,i]:=0; 
for i:=2 to 10 do 
begin A[i]:=A[l]; A[i,i]:=i— 1 end 
9.20. a) for k:=l to 15 do 
begin j:=0; 

repeat j:=j+I until (A[k,j]<>0)or(j=20); 
b[k]:=A[k,j]=0 
end 

9.23. 

a) program sort (input,output); 
const n=20; m=30; 




type строка=аггау [l..m] of real; 

матрица=аггау £l..nj of строка; 
ѵаг А:матрица; х:строка; i,].k:integer; 
begin {ввод A:} 

for i:=l to n do for j:=l to m do read(A[i,]])i 
{сортировка выбором (см. 8.38,a);} 
for k:=n downto 2 do 
begin {поиск j— номера max A[l..k,l]:} 

J ; =i; 

for i;=2 to k do if А{і,1]> АЦ.Ц then J:=f| 
{перестановка k -й и j -й строк:} 
x:=A£k]; A[k]:=A[j]; A[j]:=x 
end; 

{вывод A:} 

for i:=l to n do 
begin writeln (і,'-я строка:'); 

for J:=l to m do write(A[l,|]); writeln 
end 

end. 

9.25. a) {label 1; ѵаг Р,ДР:имя;} 

{поиск P — ребенка И, а затем поиск ДР—дочери Р} 
for Р:=Анна to Юрий do 
If (ТР[И,Р]=сын)ог(ТР[И,Р]=дочь) then 
for ДР:=Анна to Юрий do 
if ТР[Р,ДР]=дочь then begin В:=ДР; goto 1 end; 

10. РЕГУЛЯРНЫЕ ТИПЫ; СТРОКИ 

10.1. Строковым является только тип Ь. ' 

10.2. Допустимые операции: а), б), г), д), з), к), л), о). 

10.3. program ВводВыводСтроки(іприІ,ои1рій); 

const n=60; 

ѵаг s:packed array [l.,n] of char; i:integerj 
begin 

for i:=l to n do read(s[i]); 
riteln(s); writeln(s) 

end. 

10.4. {обработка массива al:} 
kl:=0; 

for i:=2 to 20 do 
begin j:=0; 

repeat j:=j+l until (al[i,J]< >al{l,j])or(j=8); 
if al[i,j]=al[l,j] then kl:=kl+l 
end; 

{обработка массива a2:} 
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k2:=0; 

for i:=2 to 20 do if a2[i]=a2[l] then k2:=k2+l 

10.5. a) for i:=l to 60 do 

if C[i]<>'hello* then write(C[i], 1 '); 
writeln; 

в) for i:=l to 60 do write(C[i,5]); writeln 

10.6. {var c:char; i:integer;} 

{сначала запись в s шести пробелов, а затем замена первых про¬ 
белов введенными буквами:} 
s:=* '{ i:=0; read(c); 

while to*. 1 do begin i:=*i+l', s[i]:=c; read(c) end 
10.8. {type string=packed array [1..6] of char; 
var n:array {0..5] of string; 

yistring; iiinteger; c:char; ok:boolean;} 
{формирование массива названий цветов в виде строк:} 
n[0]:='red '; n[l]:='blue n[2]:='green '; 

n[3]:='yellow'; n[4]:='black '; n[5]:='white '; 

{ввод не более 6 букв до пробела и запись их в у:} 
у:=* *; i:=0; read(c); 

while (с<>* *)and(i<6) do 
begin i:=i+l; y{i]:=c; read(c) end; 
ok:=(i>0)and(c=* '); {от 1 до 6 букв и пробел 
за ними?} 

if ok then 

begin {если y=n[i], то x:=i-e имя типа color:} 
i:=— 1; repeat i:=i+l until (y=n[i])or(i=5); 
if у < > n[i] then ok:=faise else 
begin x:=red; 

for i:=0 to i—1 do x:=succ(x) end 

end; 

if not ok then writeln ('неверное значение типа color') 

10.10. {var vl: packed array [1..5] of char; 

i,j: integer;} 

k:=0; vl:=v; {копирование v в vl, 
иначе ѵ[і]г-ошибка} 
for i:=l to 200 do 

begin j:=0; repeat j:=j+l until (s[i]=vl[j])or(j=5); 

if s[i]=vl[j] then k:=k+l 
end 

10.11. program русскиебуквы (input.output); 

const n=60; 

var p:packed array [1..32] of char; 
c:char; i,j:integer; 

begin р:='абвгдежзийклмнопрстуфхцчшщъыьэюя'; 
for i;=l to n do 
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begin read(c); ]:=0; 
repeat j:=j+l 
until (c=p[j])or(j=32); 
if c=p[j] then write(c) 
end; 
writeln 
end. 

10.15. б) {поиск в s буквы 'w' или пробела:} 
i:=l; while (s[i]< >'w')and(s[i]< >* ') do i:=i+l; 
if s[i]='w' then 

{сдвиг следующих за 'w' букв на 1 позицию влево и запись' 
пробела вместо последней буквы:} 
repeat i:=i+l; s[i—l]:=s[i] until s[i]= { '( 
г) {поиск в s буквы 'x' или пробела:} 

i:=l; while (s[i]< >'x')and(s[i]< >' ') do i:=i+l| 
if s[i]='x' then 

begin s[i]:='k'; {замена 'x' на 'k'} 

{вставка 's' за 'k' и сдвиг последующих букв вправо:} 
Ь:=Ѵ; {вставляемая литера} 
repeat і:=і+1; {куда вставлять} 
c:=s[i|; {освободить место для Ь} 
s[ij:=b; {вставка Ь} 

Ь:=с {новая вставляемая литера} 
until b=' 1 
end 


11. ФУНКЦИИ И ПРОЦЕДУРЫ 

11.1. б) function sign(a:real):integer; 

begin if a<0 then sign:=—1 else 

if a>0 then sign:=l else sign:=0 

end; 

z:=(sign(x)+sign(y))*sign(x+y) 

11.2. program shtg (input,output); 

var x,y:real; 
function sh(z:real):real; 
var e:real; 

begin e:=exp(z); sh:=(e— l/e)/2 end; 
function tg(z:real):real; 
begin tg:=sin(z)/cos(z) end; 
begin read(x); 

y:=sh(x)*tg(x+l)-sqr(tg(2+sh(x-l))); 

writeln(y) 

end. 


135 



11.3. function конт(5:страна):континент; 
begin case s of 

Австрия,Италия,Швеция: конт:=Европа; 
Гана: конт:=Африка; 

Перу,США: конт:=Америка 
end 

end; 

if конт(х)< >конт(у) then t:=not t 

11.4. function степень(х:геаі; п:натур):геа1; 

var i:integer; у:геаі; 
begin у:=1; for і:=1 to п do у:=у*х; 
степень:=у 

end; 

Ь:=степень(2.7,к)+1/степень(а+1,5) 

11.6. а) 2 8 6 

11.8. program площадь (input,output); 

var a,b,c,d:real; 
procedure печплощ(х,у,г:геа1); 
var p:real; 

begin if (x-|-y>z)and(y+z>x) 

and(z+x>y) then 
begin p:=(x+y+z)/2; 
writeln(sqrt(p*(p—x)* 

(p-y)*(p-z))) 

end 

end; 

begin read(a,b,c,d); {a,b,c,d>0} 
печплощ(а,Ь,с); печплощ(а,Ь,гі); 
печплощ(а,с^); печплощ(Ь,с,гі) 
end. 

11.9. б) 0 и 7; в) обращение R(sqr(c)+c,d) недопустимо. 

11.10. б) Оба обращения недопустимы; 

в) procedure coKp(a,b:integer; var p,q:integer); 
var al.bl.f.-integer; 
begin al:=abs(a); bl:=abs(b); 
while (al< >0)and(bl< >0) do 
if al> Ы then al:=al mod bl 
else bl:=bl mod al; 
if al=0 then f:=bl else f:=al; 
p:=a div f; q:=b div f 
end; 

c:=0; d;=l; {c/d=0} 



for i:=l to 20 do 

coK P (c*i+d,i*d,c,d) (c/d+l/i=(ci+d)/(di)} 

11.11. а) Оба обращения недопустимы; 
в) procedure maxmin(var x,y:real); 

var r:real; 

begin if x<y then begin r:=x; x:=y; y:=r end end; 

maxmin(a,b); maxmin(a,c); {a=max} 
maxmin(b,c); {c=rain} 

11.12. 6) procedure sum(var х,у,г:вектор); 

var i:integer; 

begin for i:=l to n do z[i]:=x[i]+y[i] end; 
sum(a,b,d); sum(d,c,d) 

11.18. 

program многочлены (input,output); 
const n=30; 

type вект=аггау (0. .n] of real; 
var а,Ь,с:вект; x,y,z,d:real; 
procedure ввод(ѵаг ѵ:вект); (ввод вектора} 
var itinteger; 

begin for i:=0 to n do read(v(i]) end; 
function знач(ѵаг ѵ:вект; t:real):real; 

{значение многочлена с коэффициентами из ѵ в 
точке t} 

var s:real; i: integer; 

begin s:=v[0); for i;=l to n do s:=s*t+v[i]; 
3Ha4:=s 

end; 

begin 

ввод(а); ввод(Ь); ввод(с); read(x,y,z); 
d:=(sqr(3Ha4(a,x))— знач(Ь,у))/знач(с,х+2); 
writeln(d) 
end. 

11.24. 0.0 2.0 

11.25. procedure сдв(ѵаг з:шкала; к:сдвиг); 

var i:integer; Ьшкала; {вспомогательный 
массив} 

begin {t[n—k+1. .n]:=s[l. .k):} 
for i:=l to k do t[n—k4-ij:=s[i]; 

{t[l..n-k]:=s[k+l..n]:} 
for i:=k+l to n do t|i—k]:=s[i]; 
s:=t 
end 

11.27. function Р(т,п:неотриц):геа1; 




function 1асІ(к:неотриц):неотриц; 
var i,p:integer; 

begin p:=l; for i:=2 to к do p:=p*i; 
fact:=p end; 

begin F:=fact(n)*fact(m)/fact(n+m) end 
11.28. procedure преобр(ѵаг х,у,а,Ь:вектор); 

procedure вставка(ѵаг ш,ѵ:вектор; n,d:integer); 
{w[n. .n+d—l):=v[l. .d]} 
var irinteger; 

begin for i:=l to d do w[n— l+i]:=v[ij end; 
begin вставка(х,а,1,8); 
вставка(у,Ь,6,6); 
вставка(у,а,17,4) 
end 

11.32. Локальные; x, у, z, с; глобальные; vect, integer, index, 

11.33. a) 8 true; a 5; 6*; a* 6) 9 в) 6 6 7 8; 6 2 3 4 
11.40. 

program .ntegrals (input,output); 
var c,d:real; 
function fl(x;reai):real; 

begin fl:=sqr(arctan(x)) end; 
function f2(x:real):real; 

begin f2:=sin(exp(10*x)) end; 
function injunction f(x:real):real; a,b;real; 
n;integer):real; 

VaT h,s:real; i:integer; 
begin h:=(b—a)/n; s:=(f(a)+f(b))/2; 
for i:=l to n—1 do s:=s+f(a+i*h); 
int:=h*s, 
end; (of int} 
begin read(c,d); 

writeln(nt(fl,c,d.20)+int(f2,0,3.1415927,100)) 
end. 

11.44. 2 1 false 
11.46. function next:char; 
var c:char; 

begin repeat read(c) until c<>* '; next:=c end; 
k:=0; while next< do k:=k+l 

12. РЕКУРСИЯ 

12.1. fib(2)=2; fib(4)=5. 

12.2. Правильное: г). 

12.3. function pow(x:reai; n:integer):real; 
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begin if n=0 then pow.=l else 

if n<0 then pow:=l/pow(x,abs(n)) 
else pow:=x*pow(x,n— 1) 
end 

12.4. function C(m,n:integer):integer; 
begin if (m=0)or(m=n) then C:=l 

else С:=С(ш,п —1)+ 
C(m—l,n—1) 
end 


12.5. 

function Потомок(а,Ь:имя):ЬооІеап; 
var f.wruMH; 

begin if (а=Ь)ог(а=нет)ог(Ь=нет) 
then Потомок:=ГаІ$е 
else 

begin 1:=Отец(Ь); т:=Мать(Ь); 
if (a=f)or(a=m) 
then Потомок:=1гие else 
{ребенок потомка—также потомок) 
if Потомок(а,0 then Потомок:=1гце 

else Потомок:=Потомок(а,т) 
end 


-10 при п>100. 


end 
12.7. 

12.9. 

function тіп(ѵаг х:вектор):геа1; 
function minl(k:integer):real; {min x[k..n]} 
var m:real; 

begin if k=n then minl:=x{n] {min x{n. .n]=x[n]} 
else 

begin {min xlk..n]=min{x[k], 

min x[k+l..n])} 


m:=minl(k+l); 
if x{k]<m then minl:=x[k] 
else minl:=m 


end 

end; {of mini) 
begin min:=minl(l) end 


12.11. function sum:real; 
var x:real; 

begin read(x); {1-е число) 
if x<0 then sum:=0 else 
{сумма всех чисел=1-е число+сумма 

остальных) 
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sum:=x+sum 


end 

12.15. 

program formula (input,output); 
functlonF:integer; 

{F читает из начала входного файла литеры, образующие 
законченную формулу, и вычисляет ее значение как целое} 
ѵаг c,op:char; x,y:integer; 
begin read(c); 
if (c>='0')and(c<='9') 
then {цифра есть формула} F:=ord(c)—ord('O') 
else {началась формула вида (x op у)} 
begin x:=F; read(op); y:=F; 
case op of 

F:=x+y; F:=x— у; V: F:=x*y 

end; 

read(c) {пропуск ')'} 
end 

end; {of F} 
begin writeln(F) end. 

13. КОМБИНИРОВАННЫЕ ТИПЫ. 

ОПЕРАТОР ПРИСОЕДИНЕНИЯ 

13.1. б) type время=гесогб час:0. .23; 

мин,сек:0. .59 end; 

ж) type строка=раскеб array [1..12] of char; 
ведомость = 
record предметхтрока; 

номергруппы: integer; 

AaTa:record ч;1 ..31; м:1..12; 

г; integer end; 
студенты:аггау {1..25J of 
record фамилияхтрока; 

нoмepзaчкниж:integeг; 

оценка;2..5 

end 

end 

13.2. function бьет(ѵаг К1,К2:карта; 

КМ:масть):Ьоо1еап; 

begin if К1.м=К2.м then бьет:=К1.Д>К2.д 
else бьет:=К1.м=КМ 
end 

13.3. procedure СамаяВысокая(ѵаг Схписок); 

var m,i:integer; 
begin m:=l; 
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for l:=2 to 30 do 

if С[і].высота>С[т]. высота then m:=l; 
writeln(C[m]. название) 
end 

13.6. 6) d:=sqrt(sqr(pl[x]—p2.x)+sqr(pj[y]—p2.y)) 

13.7. with Адрі do 

begin город:='Москва улица:='Арбат 
дом:=1; квартира:=5 

end; 

Адр2:=Адр1; Адр2.квартира:=17 

13.8. Правильно: б), в), г). 

13.10. z.re=z.im=l; w.re=0, w.im=—1; 
p.x=p.y=2; re=2 

13.14. 

6) procedure следсек(ѵаг t,tl ’.время)} 
begin tl:=t; 
with tl do 

if сек <59 then сек:=сек+1 else 
begin сек:=0; 

if мин<59 then мин:=мин+1 else 
begin мин:=0; час;=(час+1) mod 24 end 
end 
end 
13.16. 

a) function равно(ѵаг a,b:pan):boolean; 

begin равно:=а.числ*Ь.знам=Ь.числ*а.знам end 

14. МНОЖЕСТВЕННЫЕ ТИПЫ 

14.1. б) Возможные значения переменныхі 

х: [ ], [0], [11, [0,1]; 

у: I 1. Іа], [Ь], [с], [а,Ы, [а,с], [Ь,с], [а,Ь,с]} 


14.3. type A=set of деньнедели; B=set of пн..пт} 

14.4. Неправильно определены типы точки, данные , Ш, М4, 

14.5. Не множества: ж), з), и). 

14.6. а) [2,5,6]; б) [ ]; в) ошибка. 

14.8. а), г), е), к)— false; б), в), д), ж), з), и)— true; л), м} — 
ошибка. 

14.10. function счет(ѵаг s:cTpoKa):integer; 
var i,k:integer; 
begin k:=0; 
for i:=l to 100 do 

if s[i] in ['0'..'9',then k:=k+lj 
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счет:=к 

end 

14.13. function card(A:M):integerj 

var p,k:integer; 
begin k:=0; 

for p:=0 to 99 do if p in A then k;=k+l; 
card:=k 
end 

14.14. procedure print(A:letters); 

var c:char; 

begin for c:='a* to V do 

if c in A then write(c)j 
writeln 
end 

14.16. Правильно: г), д). 

14.17. a) [1. .5]; б) [ J; в) [1,3,5]; г) [1.,8]; д) [3. ,6]; е) [1,2]; 
ж) [1..5J; з) [2,41; и) [ ]; к) [41; л) [ ]; м) [ ]. 

14.18. а) [3, .5,7.. 10,13] 

14.19. а) [ ]; б) А*В. 

14.21. х:=[8. .22]; у:=[11,13,17,19]; z:=x— у] 

14.23. а) В:=А+[х]; б) В:=А—[х] 

14.24. 

a) function digits(n:HaTyp):Haiyp; 

var sd:set of 0..9; d:0. .9; kiinteger;] 
begin {выделение справа налево цифр из п и запись их в мно¬ 
жество sd:} 
sd:=[ J; 

repeat d:=n mod 10; sd:=sd+[d]; 

n:=n div 10 
until n=0; 

{подсчет числа элементов в sd:} 
к:=0; 

for d:=0 to 9 do if d in sd then k:=k+l; 
digits: =k 
end 

14.25. 

a) program первыевхождения (input,output); 
var let:set of r a'..V; c:char; 

begin let:=[ ]; {множество букв в рассмотренной части текста} 
read(c); 

while со 1 .' do 

begin if not(c in let) then {1-е вхождение} 
begin write(c); let:=let+[c] end; 
read(c) 
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end; 

writeln 

end. 

15. ФАЙЛОВЫЕ ТИПЫ 

15.2. a) 7; 6) 10; в) 21 
15.4. function отриц(ѵаг s:cepHB):real; 
var sum,x:real; 
begin reset(s); sum:=0; 
while not eof(s) do 
begin read(s,x); 

if x<0 then sum:=sum+x end) 
отриц:=$ит 
end 

15.6. function ynopfvar г:ряд):Ьоо1еап; 

var x,y:0. .999; ok:boolean; 
begin reset(r); read(r.y); ok:=true; 
while not eof(r) and ok do 
begin x:=y; read(r,y); ok:=x<y end; 
ynop:=ok 
end 

15.7. function eq(var tl,t2:TeKCT):boolean; 

var cl,c2:char; ok:boolean; 
begin reset(tl); reset(t2); ok:=true; 
while not eof(tl) and not eof(t2) and ok do 
begin read(tl.cl); 

read(t2,c2); ok:=cl=c2 end; 
eq:=ok and eof(tl) and eof(t2) 
end 

15.11. a) 1, 3; 6) 9, 4, 1 

15.12. procedure цифры(ѵаг вхтрока; var втекст); 

var i:integer; 
begin rewrite(t); 
for i:=l to 100 do 
if s[i] in |'0\.'9'] then write(t,s[i]) 
end 

15.14. procedure присв(ѵаг f,g:FB); 
var b:boolean; 
begin reset(g); rewrite(f); 
while not eof(g) do 
begin read(g.b); write(f,b) end 
end 

15.17. function less(var f:reals):integer; 
var k;integer; x,s:real; 
begin {подсчет среднего арифметического:} 
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reset(f); k:=0; s:==0; 
repeat read(f,x); k:=k+l; 

s:=s+x until eof(f); 

s:=s/k; 

{новый просмотр f и подсчет элементов <s:} 
reset(f); k:=0; 
repeat read(f.x); 

if x<s then k:=k+l 
until eof(f); 
less:=k 
end 

15.21. a) procedure addl(var Ьтекст; c:char); 

var d:char; *:текст; {вспомогательный 
файл} 

begin {копирование t в s:} 
reset(t); rewrite(s); 
while not eof(t) do 
begin read(t.d); write(s.d) end; 

{запись с и s в t:) 
reset(s); rewrite(t); 
write(t.c); 
while not eof(s) do 
begin read(s,d); write(t.d) end 
end 

a) 2; 6) 4; в) ошибка; г) 2 

а) 'а'; б) ошибка; в) T, '2', '3'; г) 'Г. '3', '2'. 
procedure присв(ѵаг f,g:<I>); 
begin reset(g); rewrite(f); 
while not eof(g) do 
begin write(f,gf); get(g) end 
end 

15.26, function mid(var f:FR; var m:real):boolean; 
var k,i:integer; 

begin {подсчет k — числа элементов в f:} 
reset(f); k:=0; 
while not eof(f) do 

begin k:=k+l; get(f) end; 
mid:=odd(k); 

if odd(k) then {поиск среднего элемента} 
begin reset(f); 

for i:=l to k div 2 do get(f); m:=ff 
end 
end 

15.31. procedure triangle(var t;text); 
var c,d;cbar; 
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begin rewrite(t); 
for d:= '1* to '9' do 
begin for c:= 'V to d do write(t.d); 

writeln(t) 

end 

end 

15.33. a) function empty(var t:text):integer; 
var k,d:integer; 
begin reset(t); k:=0; 
while not eof(t) do {цикл по строкам} 
begin d:=0; {d— длина очередной 
строки} 
while not eoln(t) do 

begin d:=d+l; get(t) end; 

If d=0 then k:=k+l; 
get(t) {пропуск «конца строки»} 
end; 

empty:=k 

end 

15.35. a) function count(var t:text):integer; 

var k:integer; c:char; 
begin reset(t); k:=0; 
while not eof(t) do 
begin {учет первой буквы строки:} 
read(t f c); if c='d' then k:=k+l; 
readln(t) {пропуск остатка 
строки} 

end; 

count:=k 

end 

15.36. procedure присв(ѵаг tl,t2:text); 
begin reset(t2); rewrite(tl); 

while not eof(t2) do 
if eoln(t2) 

then begin writeln(tl); get(t2) end 
else begin write(tl,t2f); get(t2) end 
end 

15.39. procedure зап(ѵаг 1:список; var t:text); 

var i:integer; 
begin rewrite(t); 

for i:=l to 100 do writeln(t,l[i]) 
end 

15.40. function max(var t:text):real; 

var m,x:real; 
begin reset(t); read(t,m); 
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while not eof(t) do 

begin read(t,x); if x>ra then m:=x end; 
max:=m 
end 

16.42. with d do 

writeln (число:1/.'.месяц: 1,'.',год:4) 

15.47. program formatting(BOOK); 

const d=60; {длина «новых» строк} 
var BOOK,COPY:text; c:char; k:integer; 
begin (перепись BOOK в COPY с удалением «концов 
строк»:} 

reset(BOOK); rewrite(COPY); 
while not eof(BOOK) do 
(if eoln(BOOK) then get(BOOK) else 
begin read(BOOK.c); write(COPY.c) end; 

(перенос текста в BOOK с форматированием:} 
reset(COPY); rewrite(BOOK); 
k:=0; (k — порядковый номер литеры в строке} 
while not eof(COPY) do 
begin read(COPY.c); write(BOOK.c); h:=k+l; 
if (c='.')or(k=d) then 
begin writeln(BOOK); k:=0 end 
end 

end. 

16 . ССЫЛОЧНЫЕ ТИПЫ, списки 

16.1. б) 4 

16.2. см. рис. 24. 

16.3. Неправильные: б), д), е), ж), и), к), л), м). 

СЗ— 4ZO 

Рис. 24 Рис. 25 

16.5. см. рис. 25. 

16.6. г) см. рис. 26. 

16.8. type D=0..9; A=fD; 

C=fB; B=record p:real; q:C end; 

16.9. 6) type C= fchar; A=fR; 

R=record fl:C; £2:A end; 
var p,q:A; x:C; 


f \ 4 - * \true\. . I 71 
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new(p); new(q); 

new(x); xf:='a'; pf.fl:=x; pf.f2:=q; 
new(x); xt:='b'; qt-fl:=x; qf.f2:=nrl 
16.10. 1) q:=p; р:=р|.след; dispose(q) 

16.12. 6) function negl (var х:вектор):ссылка; 
var i:integer; tiboolean; 
begin i:=0; 

repeat i:=i+l; t:=x|i|f <0 
until t or (1=100); 
if t then negl :=x|l] else negt:=nil 
end 

P \ Ц — ЧЮ 

Рис. 26 

16.14. в) {список без заглавного звена} 
procedure замена (Ь:список; Е1,Е2:ТЭ); 

ѵаг рхписок; {ссылка на очередное звено} 
begin p:=L; 
while ponil do 

begin if р}.элем=Е1 then р}.элем:=Е2; 

р:=р|.след {переход к следующему звену} 
end 

end; 

д) {список с заглавным звеном} 
function упор(Ь:список):Ьоо1еап; 
ѵаг расписок; {ссылки на пару 
соседних звеньев} 

ok:boo!ean; 
begin ok:=true; 

р:=Ь}.след; {nil или ссылка на 1-звено} 
if р< > nil then 

begin q:=pf.cflefl; {nil или ссылка на 
2-е звено} 

while (q< > nil) and ok do 
begin ok:=pf.9aeM<=qt^eM; 

p:=q; q:=qf.caefl {переход к след, паре} 
end 

end; 

ynop:=ok 

end 

16.16. а) {список с заглавным звеном} 
function newlist(var Ефайл):список; 
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var L, расписок; х:ТЭ; 
begin reset(0; 

{создать заглавное звено:} new(L); 
p:=L; {ссылка на последнее из созданных 
звеньев} 

while not eof(f) do 
begin read(f,x); 

{создаіь звено c x:} new(q); я|.элем:=х; 

{добавить его за р:} p).«ieA:=q; 

{объявить его последним:} p:=q 
end; 

р).след:=пі1; {записать nil в последнее звено} 
newlist:=L 
end 

16.18. д) {список без заглавного звена} 
procedure вставка(Ь:список; Е,Е1:ТЭ); 

ѵаг расписок; eq:booiean; 
begin {поиск звена с Е:} 
p:=L; eq:=false; 
while (pOnil) and not eq do 
it р|.элем=Е then eq:=true 

else р:=р{.след; 
it eq then {вставка El перед E} 
begin {внимание—трюк: запись El в звено р 
вместо Е и вставка Е за'звеном р:} 
р).элем:=Е1; new(q); qf.3aeM:=E; 
qt.cflefl:=pf.caeA; pt.cлeд:=q 
end 

end 

16.19. г) {список с заглавным звеном} 
procedure удалить(Ь:список); 

ѵаг расписок; 

begin {поиск предпослед. (р) и послед, (q) звеньев:} 
p:=L; q:=pf.caefl; 

while qf.oieflonii do begin p:=q; q:=qt.cлeд end; 

{удаление последнего звена:} 
dispose(q); р{.след:=піі 
end 

16.20. program reverse (input.output); 
type список=|звено; 

8BeHo=record элемхііаг; следхписок end; 
var Ь,р:список; c:char; 

begin {ввод литер текста и запись их в обратном порядке 
список L (без заглавного звена):} 

L;=nil; {ссылка на построенную часть списка} 
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read(c); 

while c< >'/ do 

begin (добавить с в начало списка:} 
new(p); р(.элем:=с; 
рЬслед:=Ь; L:=p; read(c) 

end; 

(печать литер из L:} 
while L< >nil do 

begin write(Lf.9fleM); Ь:=Ь|.след end; 
writeln 
end. 

16.23. e) (списки с заглавными звеньями} 
procedure аррепб(Ы,Ь2:список); 

ѵаг расписок; 

begin (поиск конца списка L1:} 
pl:=Ll; while р1|.след< >nil do р1:=рЦ.след; 

(вставка в конец L1 ссылки на 1-е звено L2:} 
р1(.след:=Е2|.след 
end 

16.24. (списки без заглавных звеньев} 
a) function memb(L:cnncoK; Е‘:ТЭ): boolean; 

begin if L=nil then memb:=false else 

if Ь1.элем=Е then memb:=true 

else тетЬ:=тетЬ(Ы.след,Е) 

end; 

e) procedure delete(var Ьісписок; Е:ТЭ); 
ѵаг р:список; 
begin if Lonil then 
if І4.элем=Е then (удалить 1-е звено} 
begin p:=L; Ь:=Ь|.след; dispose(p) end 

else (удалить E из «хвоста» списка 
и записать в 1-е звено ссылку на измененный «хвост»:} 
, delete(Lf.cfleA,E) - 

end 

16.29. б) (списки без заглавных звеньев} 
procedure firstletters(L:cnHCOK); 
begin while Lonil do 

begin if Е(.элем<>пі1 

then write(Lt^eMf.6yKBa); 

Ь:=Ь}.след 

end; 

writeln 

end 

16,33. a) function empty(L:cnHCOK2):boolean; 
begin empty:=Lt.cflefl=L end; 
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6) procedure геѵргіп1(Б:список2); 
ѵаг р:список2; 

begin р:=І4.пред; {последнее звено} 
while p<>L do begin write{pf.9fle*i); р:=р}.пред end; 
writeln 
end 

17. ОЧЕРЕДИ, СТЕКИ, ДВОИЧНЫЕ ДЕРЕВЬЯ 

17.1. а) type очередь=ге«пД нач,кон:0..п; 

мас:аггау [1..п] of ТЭО 

end; 

procedure ОЧИСТОЧ(ѵаг <3:очередь); 
begin Q.Ha4:=l; Q.koh:= 0 end; 
function ПУСТОЧ(ѵаг <3:очередь):ЬооІеап; 
begin nyCTO4:=Q.KOH=0 end; 
procedure ВОЧЕРЕДЬ(ѵаг С2:очередь; х:ТЭО); 

ѵаг i:integer; 
begin with Q do 

begin if кон=п then {очередь у правого края} 

if нач=1 then {занят весь мае} ОШИБКА(І) 
else {сдвиг к левому краю} 
for і:=нач to кон do 
мас{і—нач+1]:=мас[і]; 
кон:=кон+1; мас[кон]:=х 
end 
end; 

procedure ИЗОЧЕРЕДИ(ѵаг <2:очередь; ѵаг х:ТЭО); 
begin if nyCT04(Q) then ОШИБКА(2); 
with Q do 
begin х:=мас[нач]; 

if нач=кон then {был 1 элемент} 

04HCT04(Q) 
else нач:=нач-}-1 
end 
end 

17.2. 

a) procedure печать(ѵаг f:FR; a,b:real); 

var Ql,Q2:o4epegb; {ТЭО=геаІ} x:real; 
begin reset(f); 04HCT04(Q1); 04HCT04(Q2); 

{печать чисел < а, запись в Q1 чисел £[a,b] и 
запись в Q2 чисел >Ь:} 
while not eof(f) do 
begin read(f,x); 

if x<a then write(x) else 
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if x<=b then В0ЧЕРЕДЬ(ф1,х) 
else В0ЧЕРЕДЬ((Э2,х) 

end; 

{печать чисел из Q1 и Q2:} 
while not nyCT04(Ql) do 
begin ИЗОЧЕРЕДИ(С?1,х); wrlte(x) end; 
while not nyCT04(Q2) do 
begin ИЗОЧЕРЕДИ(<32,х); write(x) end; 
writeln 
end 

17.4. 

в) function formula(var t:text):integer; 
ѵаг Бхтек; c,op,x,y:char; 
begin reset(t); 04HCTEK(S); 
while not eof(t) do 
begin read(t,c); 

(обработка очередной литеры текста (литеры '(' 
и игнорируются):} 

if с in ['0'..'9','М', 'ш'1 then BCTEK(S,c) else 
if c=')' then (конец формулы вида op(x,y)} 1 
begin (в конце стека находится тройка ор х у, 
она удаляется из стекла, выполняется 
операция ор и результат записывается 
в стек:} 

H3CTEKA(S,y); H3CTEKA(S,x); H3CTEKA(S,op); 
case op of 

'M' {max}: if x>y then c:=x 
else c:=y; 

'm' {min}: if x<y then c:=x else c:=y 
end; 

BCTEK(S.c) 

end 

end; {of while} 

(в стеке осталась одна цифра—значение всей 
формулы; цифра переводится в целое число:} 
H3CTEKA(S,c); formula:=ord(c)— ord('O') 
end 
17.7. 

б) function соипІ(Т:дерево; E:TЭД):integer; 
ѵаг Бхтек; k:integer; 

begin ОЧИСТЕК(Б); k:=0; {число вершин с Е} 
while Т<> nil do 

begin (T— ссылка на очередную вершину} 
if Т|.элем=Е then k:=k+l; 

{переход к следующей вершине;} 



if T (.лев < > nil then {есть ветвь влево} 
begin {правую ветвь, если есть,—в стек:} 
if Т|.прав<>пі1 then BCTEK(S,Tt.npaB); 

{идти влево:} Т:=Т}.лев 
end 

else if Т|.прав<>пі1 then {идти вправо:} 

Т:;=Т|.прав 

else {нет обеих ветвей} 

begin {взять ветвь из стека и идти по ней:} 
if nyCTEK(S) then T:=nil {конец 

просмотра} 
else H3CTEKA(S,T) 
end 

end; {of while} 
count:=k 
end; 

ж) procedure levels (T: дерево); 

var Q: очередь; n,k,kl:integer; 
begin 

if T<>nil then 
begin ОЧИСТОЧ (Q); 
п:=0; ВОЧЕРЕДЬ (Q.T); k:=l; 
repeat {цикл по уровням} 

{В очереди Q находятся все (к) вершины (ссылки ва 
них) п-го уровня дерева. Они считываются и печа¬ 
таются, и одновременно в конец Q заносятся все (kl) 
их дочерние вершины, т. е. вершины (п+1)-го уровня.} 
write (п, ’-й уровень:’); 
kl:=0; 

for к:=1 to к do 
begin ИЗОЧЕРЕДИ(О.Т); 
write (’ ’.Т^.элем); 
if Т^лев <> nil then 
begin ВОЧЕРЕДЬ(0,Т|.лев); kl:=kl+l end; 
if Tf.npaB <> nil then 
begin ВОЧЕРЕДЬ (Q.Tf.npaB); kl:=kl+l end 

end; 

writeln; {конец печати n-ro уровня} 
n:=n+l; k:=kl {на следующий уровень} 
until k =0 . 
end 
end 

17.8. 6) function count (Т:дерево; Е:ТЭД): integer; 
var k integer; 
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begin 

if T=nil then count:=0 else 
begin if Т}.элем=Е then k:=l else k:=0; 
count:=k+count(T f. лев , E)+ 
count(Tf.npaB,E) 
end 

end; 

e) function height(T: дерево): integer; 
var hl,h2:integer; 
begin 

if T = nil then height;=—1 else 
begin hl:=height(Tf.fleB); 
h2:=height(Tf.npaB); 
if hl>h2 then height:=hl + l 
else height:=h2+l 
end 
end 

17.10. procedure сору(Т:дерево; var Т1:дерево); 
begin if T=nil then Tl:=nil else 

begin new(Tl); Т1|.элем:=Т|.элем; 
сору(ТМев.ТІ).лев); 
copy(T f.npae.Tl {.прав) 
end 
end 

17.14 

a) procedure освоб(ѵаг Тгдереро); 

{вспомогательная процедура: освободить память, занимаемую 
деревом Т, и Т:=піІ} 
begin 

if Т< > nil then 

begin освоб(Т).лев); освоб(Т).прав); 

dispose(T); T:=nil 
end 

end; 

procedure упростить(ѵаг T: дерево); 
var T1,T2: дерево; 


begin 

if Т|.элем in Г+У— 7*’] then 
begin 

{сначала упростить операнды формулы:} 
упростить(Т|.лев); упростить(Т}.прав); 
Т1:=Т}.лев; Т2:=Т|.прав; 

{упростить саму формулу:} 
if (Т}.элем=’+') and (Т1}.элем=’0’) ог 
(Т>.элем=Ѵ) and(Tlf.MeM=’l') 
then {(0+f), (l*f) —► /} 


153 



begin dispose(Tl); dispose(T); T:=T2 end 
else 

if (Тіэлем in Г+’, ’—’1) and 
(Т2|.элем=’0’) or 
(Т|.элем=Ѵ) and (Т2|.элем=Т) 
then {(f+0). (/-0), (f*l) —► f} 
begin dispose(T2); dispose(T); T:=T1 end 
else 

if (Т|.элем=Ѵ) and 

((Т1|.элем=’0’) or (Т2|.элем=’0’)) 
then {(0*f), (f*0) — 0} 
begin освоб(Т|.лев); освоб(Т|. прав); 

ТЬэлем:=’0 г 
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Readership: students of mathematics and computer science. 

Contents: The book contains more than 900 exercises for 
those who begin learning the programming language Pascal and writing 
programs in this language. Many mathematical and data processing 
problems are proposed. The language version under consideration is 
the ISO Pascal standard. 

Author: Lecturer on computer science at Moscow State Univer¬ 
sity. 
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ВЫЙДЕТ В СВЕТ В 1990 г.* 

Дьяконов В. П. Форт-системы программирования персональ¬ 
ных ЭВМ. 

Является продолжением справочников автора, вышедших в из¬ 
дательстве «Наука». Впервые в отечественной литературе дается 
обстоятельное описание всех наиболее важных современных массо¬ 
вых версий языка Форт, включая расширенные версии, а также 
методики разработки на них пакетов прикладных программ. По 
широте охвата описанных версий Форт-систем программирования 
и их расширений, а также по числу конкретных примеров книга 
не имеет аналогов в мировой литературе. 

Для научных и инженерно-технических работников, студентов 
втузов, программистов и массовых пользователей-непрофессионалов. 

Заказы на книгу принимаются всеми магазинами Союзкниги 
и Академкниги, распространяющими физико-математическую лите¬ 
ратуру. 

В Аннотированном тематическом плане выпуска литературы 
на 1990 г. книга В, П. Дьяконова занимает позицию 176. 
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ВЫЙДЕТ В СВЕТ В 1990 r.S 

П я р и п у у А. А. Программирование на алгоритмических языках. 

Излагаются основы программирования на алгоритмических 
языках Бейсик, Фортран IV и ПЛ/1. Специальная глава содержит 
общие сведения о развитии ЭВМ, совершенствовании алгоритмиче¬ 
ских языков и принципов решения задач на ПЭВМ. Рассмотрены 
особенности входных языков некоторых широко используемых 
трансляторов. 

2-е изд.— 1983 г. 

Для студентов вузов. 
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Ужастов И. А. Оптимизация структур распределенных баз данных 
в АСУ. 

Изложены методы упорядочения и оптимизации структур рас¬ 
пределенных баз данных (РБД) на этапах предпроектного анализа, 
технического проектирования и эксплуатации АСУ. Приведены 
модели, методы и алгоритмы анализа и структуризации предмет¬ 
ных областей пользователей и синтеза оптимальных по различным 
критериям эффективности логических и физических структур РБД. 
Рассмотрены постановки задач, стратегии и методы реорганиза¬ 
ции РБД. 
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ратуру. 
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Й. А, Ужастова занимает позицию 166. 
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